From a03104fb04a79964855ba838776ecf3d28ba1757 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sat, 25 Sep 2021 15:21:13 -0400 Subject: Implement monadic modified assignment --- src/c.bqn | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/c.bqn b/src/c.bqn index 6c8f6a7f..aafb880f 100644 --- a/src/c.bqn +++ b/src/c.bqn @@ -138,7 +138,7 @@ Parse ← {r‿vn‿i‿e‿def←𝕨⋄nv←≠vn {"Empty statement or expression"_err_(𝕩/0∾G) (4+⊑bB)≠𝕩/0∾gx}1⊸«⊸∧1∾gb dl←«⊸∨dc←r=4 # Dot left r-↩(𝕩=⊑bG)>ec←«dc<0≤r+p # Role ¯4 for exports: ⊑bG is ⇐ - "Invalid assignment or stranding use"_err_(↕∘≠) ((¯4⊸<∧≤⟜¯2)r)>ec∧»dc<0≤r + "Invalid assignment or stranding use"_err_(↕∘≠) ((¯4⊸<∧≤⟜¯2)r)>(ec∨𝕩=2+⊑bG)∧»dc<0≤r "Dot must be followed by a name"_err_(↕∘≠) dc>«𝕩 M vi‿nv sr←»⌾(((⍋⊏⟜dl)⊸⊏g)⊸⊏)sl←«⊸∨r=¯2⋄ns←¬sl∨sr # Strand right and left; not stranded cp←𝕩=1+⊑bB # Closed paren @@ -237,7 +237,8 @@ Parse ← {r‿vn‿i‿e‿def←𝕨⋄nv←≠vn ls←s∧fo<○IT lo←𝕩=4+⊑bB # List Separators: after ⟨lo, not {fo "Can't use Nothing (·) in lists"_nerr ne×»lo∨ls "Double subjects (missing ‿?)"_err_(G) ∧⟜«ro»⊸∨⊸