From 3c71f00e4e9cb1d1fa1b65a693cebe0439864228 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 28 Jul 2020 21:08:33 -0400
Subject: Restore define/update bytecode distinction removed due to a bug in
 dzaima/BQN

---
 c.bqn | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/c.bqn b/c.bqn
index 855cb840..d48a7175 100755
--- a/c.bqn
+++ b/c.bqn
@@ -183,10 +183,10 @@ DParse ← {nv‿r𝕊𝕩:
   dy←fa⊏1↓0∾˜(𝕩≠⊑bO)∧(tr∧r≥0)∨ro<r=0
   n←𝕩≥vi+nv⋄cn←/n∨𝕩≤¯1⊑bC⋄u←⍷ob←cn⊏𝕩
   lo←(o/𝕩)=4⊑bB⋄ll←1+lo/1(↓--⊸↓)(o∾1)/+`(s∾0)-(1∾o)∧ps∾1
-  dr←/s>o+`⊸⊏0∾lo⋄rt←/𝕩=2⊑bB⋄as←1+/a
-  or←⍋idor∾g⊏˜∾⟨cn,cn,b,b,rt,as,dr,l,l,si,si,oa+1⌈oa⊏os,(dy×⊏⟜os)⊸+fa+dy⟩
+  dr←/s>o+`⊸⊏0∾lo⋄rt←/𝕩=2⊑bB
+  or←⍋idor∾g⊏˜∾⟨cn,cn,b,b,rt,1+/a,dr,l,l,si,si,oa+1⌈oa⊏os,(dy×⊏⟜os)⊸+fa+dy⟩
   bc0←∾idbc∾⟨0¨cn,u⊐ob,15¨b,1+↕≠b⟩
-  bc←or⊏bc0∾∾⟨25¨rt,12¨as,14¨dr,3¨l,ll,3¨si,sll,5+oa⊏r,5+dy+4×fa⊏tr⟩
+  bc←or⊏bc0∾∾⟨25¨rt,(11-⊑bG)+a/𝕩,14¨dr,3¨l,ll,3¨si,sll,5+oa⊏r,5+dy+4×fa⊏tr⟩
   fs←(ft⊏⥊"fmd"≍⌜⌽↕2)∾¨(/1∾or∊bc0+⟜↕○≠rt)≍○<¨(ft⊏spd)∾⟜(⥊¨↑⟜•a)¨lc
   ⟨LEBv bc,u,fs⟩
 }
-- 
cgit v1.2.3