From ce937d8768405dbf2e8ccbc1d7361a8db05d4e5b Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 26 Jul 2020 15:50:11 -0400
Subject: Simpler function type computation

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

diff --git a/c.bqn b/c.bqn
index bc15a164..9fcc70ca 100755
--- a/c.bqn
+++ b/c.bqn
@@ -172,7 +172,7 @@ DParse ← {nv‿r𝕊𝕩:
   or←⍋g⊏˜∾⟨cn,cn,id,id,b,b,rt,1+/a,dr,l,l,si,si,oa+1⌈oa⊏os,(dy×⊏⟜os)⊸+fa+dy⟩
   bc1←⟨0¨cn,u⊐ob,1+(id-1)⊏a,5+vi-˜id⊏𝕩,15¨b,1+↕≠b⟩
   bc←or⊏∾bc1∾⟨25¨rt,(11-⊑bG)+a/𝕩,14¨dr,3¨l,ll,3¨si,sll,5+oa⊏r,5+dy+4×fa⊏tr⟩
-  ⟨LEBv bc,u,((0∾ft)⊏(2/"fmd")≍¨6⥊⌽↕2)∾¨/1∾or∊(+´≠¨bc1)+↕≠rt⟩
+  ⟨LEBv bc,u,((0∾ft)⊏⥊"fmd"≍⌜⌽↕2)∾¨/1∾or∊(+´≠¨bc1)+↕≠rt⟩
 }
 
 prims←⟨
-- 
cgit v1.2.3