From fcd6f3feb1d12e4a1ec271e560ebe804f4ae5d68 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 14 Oct 2020 16:01:03 -0400
Subject: =?UTF-8?q?Move=20from=20=E2=80=A2EX=20to=20=E2=80=A2Import?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/pr.bqn | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/pr.bqn')

diff --git a/src/pr.bqn b/src/pr.bqn
index e028cbc5..77d664ff 100755
--- a/src/pr.bqn
+++ b/src/pr.bqn
@@ -26,6 +26,7 @@ Inc ← {
 # Required functionality passed in as an argument
 def ← ⟨"IsArray","Type","Log","GroupLen","GroupOrd"⟩
 keep ← "!+-×÷⋆⌊=≤≢⥊⊑↕⌜`⊘"
+len ⇐ def+○≠keep
 ki ← chr⊐keep
 kt ← (+`nc)(∾((≠def)∾¯1↓⊣)+⊔⟜⊒∘⍋)ki
 names ↩ (⥊¨kt⊏chr)⌾(ki⊸⊏)names
@@ -43,5 +44,4 @@ E_redef ← { # handles [fmd] [←↩]
   (E_proc 1↑𝕩) ∾ "←" ∾ tail
 }
 
-ref ← ∾∾⟜(@+10)¨ E_isdef◶E_proc‿E_redef¨ impl∾<"⟨"∾"⟩"∾˜1↓⥊","⊸∾˘chr
-⟨ref, def+○≠keep⟩
+ref ⇐ ∾∾⟜(@+10)¨ E_isdef◶E_proc‿E_redef¨ impl∾<"⟨"∾"⟩"∾˜1↓⥊","⊸∾˘chr
-- 
cgit v1.2.3