From bded0674bdc8ba3ae7cfca71a2eb62a71cd81d5d Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 6 Oct 2020 17:04:46 -0400
Subject: Full expression role detection

---
 src/c.bqn | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index 8ab46b12..e0878623 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -126,7 +126,10 @@ Parse ← {r‿nv←𝕨
   fsc←ft⊏⥊3‿5‿6-⌜3‿0
   pt←cp∧sn←¬sl∨sr
   r↩sl-˜sn×((1↓ft)⊏(1+2⊸≤)⊸/↕4)⌾((b⊏rev)⊸⊏)r
-  r+↩pt(⊣∧≤=○I1T⊢)(»⌾(g⊸⊏)3=r)∨1≤r
+  pp←pt∧»no←»⌾(g⊸⊏)r<0
+  er←((»⌾(g⊸⊏)(1+no)×3=⊢)⌈⊢-no<2≤⊢)r+pp×(IT¬pp)⊏r
+  er⌈↩(IT¬pt∧er=0)((⊏-⊢)⟜(+`¬pp)(⊢⌊1⌈+)⊏)er
+  r+↩pt×»er
 
   id←/idm←(0⊸≤∧<⟜nv)xv←𝕩-vi⋄idx←id⊏𝕩⋄sp←/𝕩 M bI
   ad←𝕩(=>○IT⊣=1+⊢)⊑bG
-- 
cgit v1.2.3