Clean up pr.bqn a little with shift functions

1 files changed, 2 insertions, 2 deletions

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