aboutsummaryrefslogtreecommitdiff
path: root/src/pr.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-10-14 16:01:03 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-10-14 16:01:03 -0400
commitfcd6f3feb1d12e4a1ec271e560ebe804f4ae5d68 (patch)
tree00e72a7d377a09949b863af280729fcf629daa2a /src/pr.bqn
parent7c388daec05b65a810aae6917ae28a9c9b910254 (diff)
Move from •EX to •Import
Diffstat (limited to 'src/pr.bqn')
-rwxr-xr-xsrc/pr.bqn4
1 files changed, 2 insertions, 2 deletions
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