aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-05-15 10:03:44 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-05-15 10:03:44 -0400
commit9c3608eab28788007b052cc600a8e210bb70b679 (patch)
tree62d4a32c87bfacad2e96fd02a21ad42437dfc0e9
parent93e4e69199311ac2b7a02ec3ed48290b99f097a0 (diff)
Don't rely on fills so much in cjs.bqn
-rwxr-xr-xsrc/cjs.bqn2
-rw-r--r--src/pp.bqn2
2 files changed, 2 insertions, 2 deletions
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‿{