diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-05-15 10:03:44 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-05-15 10:03:44 -0400 |
| commit | 9c3608eab28788007b052cc600a8e210bb70b679 (patch) | |
| tree | 62d4a32c87bfacad2e96fd02a21ad42437dfc0e9 /src | |
| parent | 93e4e69199311ac2b7a02ec3ed48290b99f097a0 (diff) | |
Don't rely on fills so much in cjs.bqn
Diffstat (limited to 'src')
| -rwxr-xr-x | src/cjs.bqn | 2 | ||||
| -rw-r--r-- | src/pp.bqn | 2 |
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 @@ -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‿{ |
