aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xc.bqn2
-rw-r--r--test/bcases.bqn1
2 files changed, 2 insertions, 1 deletions
diff --git a/c.bqn b/c.bqn
index bc53a5bc..cb31ed6c 100755
--- a/c.bqn
+++ b/c.bqn
@@ -37,7 +37,7 @@ Tokenize←{
w←(≠↑0∾⊢)⊸<l←c∊∾bD‿bN‿bA
i←(1-˜l×+`w)⊔c
na←≠•a⋄us←¯1⊑bA
- in←us⊸≠⊸/¨na(⊢-⊣×+⟜(⊑bA)⊸≤)i
+ in←na(⊢-⊣×+⟜(⊑bA)⊸≤)us⊸≠⊸/¨i
id←⍷(bA∊˜w/c)⍒⊸⊏in⋄nv←+´bA∊˜⊑¨id
c↩(w∨¬l∨c∊bP∾bW)/(vi+id⊐in)⌾(w⊸/)(vi+(≠id)+lu⊐lit)⌾(cl⊸/)c
diff --git a/test/bcases.bqn b/test/bcases.bqn
index 4a1a51b6..7daba994 100644
--- a/test/bcases.bqn
+++ b/test/bcases.bqn
@@ -34,3 +34,4 @@
4 % (⊑⟨×⟩){𝕩𝔽𝕩}¯2
6 % +´(ט)‿-{𝕎𝕩}¨3
5 % 2+⍟3-1
+9 % _m←˜⋄{mm←𝕩⋄×_mm 3}m