From 01fe8ee5bbba4631b12290a6f50b5412b7aaf096 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 1 Jul 2020 13:48:08 -0400
Subject: Simple/incomplete quote escaping

---
 spec/dzref | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/spec/dzref b/spec/dzref
index 93d868b0..6034fa78 100755
--- a/spec/dzref
+++ b/spec/dzref
@@ -350,11 +350,11 @@ ProgressiveIndexOf ← {𝕨⊐○(≍˘⟜OccurrenceCount𝕨⊸⊐)𝕩}
   '≡' Mod "≡"
 
 
-  E_isdef ← (3≤≠)◶⟨0,∧´⟨chr," ","←↩"⟩∊˜¨3⊸↑⟩ ⍝ checks if line is a builtin redefinition
+  ⍝ checks if line is a builtin redefinition
+  E_isdef ← (3≤≠)◶⟨0,∧´⟨chr," ","←↩"⟩∊˜¨3⊸↑⟩
 
-  E_proc ← { ⍝ replaces built-ins with their corresponding names
-    c←chr⊐𝕩 ⋄ ∾c(≥⟜(≠chr))◶⟨⊑⟜names,⥊∘⊢⟩¨𝕩
-  }
+  ⍝ replaces built-ins with their corresponding names
+  E_proc ← {l←≠chr ⋄ ∾ ((l×≠`𝕩∊"""'")+chr⊐𝕩) (≥⟜l)◶⟨⊑⟜names,⥊∘⊢⟩¨ 𝕩}
 
   E_redef ← { ⍝ handles [fmd] [←↩]
     tail ← E_proc 3↓𝕩 ⍝ must use old def
-- 
cgit v1.2.3