From 9c3608eab28788007b052cc600a8e210bb70b679 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 15 May 2021 10:03:44 -0400
Subject: Don't rely on fills so much in cjs.bqn

---
 src/cjs.bqn | 2 +-
 src/pp.bqn  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/cjs.bqn b/src/cjs.bqn
index c401ded5..59e6ab3b 100755
--- a/src/cjs.bqn
+++ b/src/cjs.bqn
@@ -11,7 +11,7 @@ Esc←{
   i ← in⊐𝕩
   𝕩 ↩ i ⊏⟜out⌾((i<≠out)⊸/) 𝕩  # Replace
   ∾(i<≠in) /⟜"\"⊸∾¨ 𝕩         # Insert \
-}
+}⍟(0<≠)
 Str ← "str("""∾Esc∾""")"˜     # A BQN string
 Char ← "'"(∾∾⊣)Esc∘⥊          # A BQN character
 F ← ⍕ #•Fmt                   # Native format
diff --git a/src/pp.bqn b/src/pp.bqn
index 57a4c65a..403eb4b7 100644
--- a/src/pp.bqn
+++ b/src/pp.bqn
@@ -34,7 +34,7 @@ E_nodef ⇐ {
   f←(𝕩=@+10)≥○((1+↕∘≠)⊸(⌈`×))q<𝕩='#'       # Comments
   w←('•'⊸=(∨»⊸∧⊢)∊⟜idChars) f/𝕩            # Group words
   t←(¯1+`·¬(»f/q)∨w)⊸⊔ f/𝕩                 # Tokenize
-  ∾ (in⊸⊐ ⊑⟜out⍟(<⟜(≠in))¨ ⊢) t            # Replace
+  ∾ (in⊸⊐ ⊑⟜out⍟(<⟜(≠in))¨ ⊢)⍟(0<≠) t      # Replace
 }
 # Process expression, possibly redefining a primitive
 E_proc ⇐ E_isdef◶E_nodef‿{
-- 
cgit v1.2.3