Simpler function type computation

1 files changed, 1 insertions, 1 deletions

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←⟨