From 71ca063561702101960caa5c1cd911680c4490ce Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 25 Oct 2020 21:08:26 -0400
Subject: Fix bug in list assignment: function suppression spilled past list
 divider

---
 src/c.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index 4c077d01..1c51773e 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -171,7 +171,7 @@ Parse ← {r‿nv←𝕨
   idbc←¯1⌽⟨⥊⍉>ib,3¨ed,ex≠⊸(«-⊢)ed,14¨ed⟩
 
   ta←tr∧2(>∨|)ps(⊢-T)+`¬ro
-  fa←/(ta∨ro∨«⊸∨aa)<(r=1)∨»op
+  fa←/(ta∨ro∨«⊸∨ps<aa)<(r=1)∨»op
   dy←fa⊏«(𝕩=⊑bO)<(tr∧r≥0)∨ro<r=0
   ob←pr⊏/¯1(⊢-»)u←⍷∧pr←𝕩⊏˜pi←/𝕩<sep
   cn←pi∾lt←/𝕩≥ci←vi+nv⋄ob∾↩(ci-˜≠u)+lt⊏𝕩
-- 
cgit v1.2.3