From 0658e1ba9dc1095449e4c0289324955716d402ef Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 13 Mar 2021 10:28:39 -0500
Subject: =?UTF-8?q?Use=20=E2=80=A2Eval=20or=20=E2=80=A2BQN=20instead=20of?=
 =?UTF-8?q?=20=E2=8D=8E?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 dzref | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

(limited to 'dzref')

diff --git a/dzref b/dzref
index c2d516f6..7598775d 100755
--- a/dzref
+++ b/dzref
@@ -36,9 +36,14 @@ Windows←{
   ! ∧´𝕨≤1+s
   𝕨{(∾⟜(𝕨≠⊸↓≢𝕩)∘≢⥊>)<¨⊸⊏⟜𝕩¨s(¬+⌜○↕⊢)⥊𝕨}⍟(0<≠𝕨)𝕩
 }
-
 ↕ ↩ ↕              ⊘ Windows
 
+Group←(1=≡∘⊣)◶⊔‿((1==∘⊣)◶⟨
+  ⥊∘⊣⊔∾˝∘⊢⍟(=∘⊣)
+  >○≠◶⊔‿{(¯1⊑𝕨)⥊⟜(<0↑𝕩)⊸(»˜)⍟(>⟜≠)(¯1↓𝕨)⊔𝕩}
+⟩)
+⊔ ↩ ⊔⊘Group
+
 
 #⌜
 # LAYER 6: Everything else
@@ -70,20 +75,20 @@ ProgressiveIndexOf ← {𝕨⊐○(≍˘⟜OccurrenceCount𝕨⊸⊐)𝕩}
 ⊒ ← OccurrenceCount⊘ ProgressiveIndexOf
 "
 
-raw ← {⍎}
+raw ← {•Eval}
 X ← {F:≤4}
 _withRef ← ˙
 {v:
   chrs←⟨
-    "↕⊐⊒∊⍷"
+    "↕⊐⊒∊⍷⊔"
     ""
     "⚇"
   ⟩
 
   # built-in assumptions
   GetRepls ← {
-    c‿n ← 𝕩 ⋄ k←"↕⊐"
-    ⟨c,(⥊¨k)⌾(((⊑¨c)⊐k)⊸⊏)n⟩ ∾⟜<¨ "⍎"‿"⍎_withRef "
+    c‿n ← 𝕩 ⋄ k←"↕⊐⊔"
+    ⟨c,(⥊¨k)⌾(((⊑¨c)⊐k)⊸⊏)n⟩ ∾⟜<¨ ⟨"•Eval","(•Eval _withRef)"⟩
   }
 
   ⟨E_proc,E_nodef⟩ ← chrs‿GetRepls •Import "src/pp.bqn"
-- 
cgit v1.2.3