From 7fc933d2408509ab16b66246bcfa05582758be6d Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 29 Jul 2020 15:59:09 -0400
Subject: =?UTF-8?q?Generate=20conditional=20function=20call=20instructions?=
 =?UTF-8?q?=20until=20the=20compiler=20handles=20=F0=9D=95=A8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/c.bqn b/c.bqn
index d48a7175..5bbfbfd6 100755
--- a/c.bqn
+++ b/c.bqn
@@ -186,7 +186,7 @@ DParse ← {nv‿r𝕊𝕩:
   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,(11-⊑bG)+a/𝕩,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,16+dy-7×fa⊏tr⟩
   fs←(ft⊏⥊"fmd"≍⌜⌽↕2)∾¨(/1∾or∊bc0+⟜↕○≠rt)≍○<¨(ft⊏spd)∾⟜(⥊¨↑⟜•a)¨lc
   ⟨LEBv bc,u,fs⟩
 }
-- 
cgit v1.2.3