From c53801af74f4e7e6debed7b5ec81e64302da49a5 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Wed, 1 Dec 2021 21:39:08 -0500 Subject: =?UTF-8?q?Fix=20handling=20of=20parenthesized=20=C2=B7=20in=20ass?= =?UTF-8?q?ignment=20target?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/c.bqn | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/c.bqn') diff --git a/src/c.bqn b/src/c.bqn index 90eaa91f..746fbbf6 100644 --- a/src/c.bqn +++ b/src/c.bqn @@ -250,7 +250,7 @@ Parse ← {r‿vn‿i‿e‿def←𝕨⋄nv←≠vn ak←af+(0≤ar)+(ai⊏ma)+(⊑bG)-˜ai⊏𝕩 # Class of assignment: 1⇐ 2⇐? 3←? 4↩? 5+↩? at∾↩hj⋄ac←«⊸-(ak∾6¨hj)⌾(at⊸⊏)0¨𝕩 # Header assignment is 6 temporarily aa←×gac←g⊏ac↩»+`(1⊸»⊸∨0=+`)⊸×gi⊏ac # Broadcast ac to the entire target - api←/ap←aa∧2=no # Assignment placeholder + api←/(𝕩=⊑bO)∧ap←aa∧2=no # Assignment placeholder "Can't use Nothing (·) in lists"_nerr (¬ap)×no×(gr⊏¬ns)∨»lo∨ls ac-↩3×ah←6=ac # Assignment is header; 6→3 nx⌈↩aa×1=no # Prevent assignment to 𝕨 if it's · -- cgit v1.2.3