aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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‿{