From 0658e1ba9dc1095449e4c0289324955716d402ef Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sat, 13 Mar 2021 10:28:39 -0500 Subject: =?UTF-8?q?Use=20=E2=80=A2Eval=20or=20=E2=80=A2BQN=20instead=20of?= =?UTF-8?q?=20=E2=8D=8E?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/pp.bqn | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') 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 -- cgit v1.2.3