aboutsummaryrefslogtreecommitdiff
path: root/src/pp.bqn
diff options
context:
space:
mode:
Diffstat (limited to 'src/pp.bqn')
-rw-r--r--src/pp.bqn2
1 files changed, 1 insertions, 1 deletions
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‿{