aboutsummaryrefslogtreecommitdiff
path: root/src/pp.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-03-13 10:28:39 -0500
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-03-13 10:28:39 -0500
commit0658e1ba9dc1095449e4c0289324955716d402ef (patch)
tree7a0a3716d634c69bcf77afe0da9fc9ec9983ff4a /src/pp.bqn
parent02d3ccdaee34c83aa26448794f4f98ef0adae58c (diff)
Use •Eval or •BQN instead of ⍎
Diffstat (limited to 'src/pp.bqn')
-rw-r--r--src/pp.bqn3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/pp.bqn b/src/pp.bqn
index aec45a7c..8e0fe7cc 100644
--- a/src/pp.bqn
+++ b/src/pp.bqn
@@ -32,7 +32,8 @@ E_nodef ⇐ {
idChars ← "_¯.π∞"∾∾"0aA"+⟜↕¨10‿26‿26
q←≠`𝕩='"' ⋄ q∨↩≠`q<𝕩=''' # Quotes
f←(𝕩=@+10)≥○((1+↕∘≠)⊸(⌈`×))q<𝕩='#' # Comments
- t ← (¯1+`·¬(»f/q)∨·»⊸∧∊⟜idChars)⊸⊔ f/𝕩 # Tokenize
+ w←('•'⊸=(∨»⊸∧⊢)∊⟜idChars) f/𝕩 # Group words
+ t←(¯1+`·¬(»f/q)∨w)⊸⊔ f/𝕩 # Tokenize
∾ (in⊸⊐ ⊑⟜out⍟(<⟜(≠in))¨ ⊢) t # Replace
}
# Process expression, possibly redefining a primitive