From 55ce1825ebc76493316063ea8b0f7e1c0aa95677 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 20 Jan 2021 09:04:29 -0500
Subject: Clean up pr.bqn a little with shift functions

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

(limited to 'src')

diff --git a/src/pr.bqn b/src/pr.bqn
index 054c15b3..7e12537e 100755
--- a/src/pr.bqn
+++ b/src/pr.bqn
@@ -28,7 +28,7 @@ def ← ⟨"Type","Decompose","Glyph","Fill","Log","GroupLen","GroupOrd"⟩
 keep ← "!+-×÷⋆⌊=≤≢⥊⊑↕⌜`⊘"
 len ⇐ def+○≠keep
 ki ← chr⊐keep
-kt ← (+`nc)(∾((≠def)∾¯1↓⊣)+⊔⟜⊒∘⍋)ki
+kt ← (+`nc)(∾(def≠⊸»⊣)+⊔⟜⊒∘⍋)ki
 names ↩ (⥊¨kt⊏chr)⌾(ki⊸⊏)names
 
 
@@ -44,4 +44,4 @@ E_redef ← { # handles [fmd] [←↩]
   (E_proc 1↑𝕩) ∾ "←" ∾ tail
 }
 
-ref ⇐ ∾∾⟜(@+10)¨ E_isdef◶E_proc‿E_redef¨ impl∾<"⟨"∾"⟩"∾˜1↓⥊","⊸∾˘chr
+ref ⇐ ∾∾⟜(@+10)¨ E_isdef◶E_proc‿E_redef¨ impl∾<"⟨"∾"⟩"«⥊","⊸∾˘chr
-- 
cgit v1.2.3