aboutsummaryrefslogtreecommitdiff
path: root/src/c.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-11-24 21:35:56 -0500
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-11-24 21:38:09 -0500
commit6bc5cf358c6ab1ac2b63da161d05b93d0e4b262a (patch)
treeedd9abb878f3fe3f732a341f1516383408ac6e73 /src/c.bqn
parent35680bd835914bf96a76e145356990f945d2c785 (diff)
More accurate error message
Diffstat (limited to 'src/c.bqn')
-rw-r--r--src/c.bqn2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/c.bqn b/src/c.bqn
index 2cb3842a..2c223867 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -204,7 +204,7 @@ Parse ← {r‿vn‿i‿e‿def←𝕨⋄nv←≠vn
ss+↩(rev⊏r=3)∧𝕩=3+⊑bI # Treat _𝕣_ as 3, like 𝕘
HS←(¯1+`cf)⊏b¬∘PN=⟜ss⋄sp←/hu<𝕩 M bI # Has-special (𝕤𝕩𝕨/𝕣𝕗/𝕘); indices of specials
fx←HS 1⋄fr←(fx∨0⊸<)⊸+ft←2(⊣⌈2×⊢)○HS 3 # Body immediacy ¬fx, type ft, role fr
- "Block header conflicts with other bodies"_err_(ch/0∾/∘CB) (hr<ch/fr)∨hl<hx<ch/fx
+ "Block header type conflict"_err_(ch/0∾/∘CB) (hr<ch/fr)∨hl<hx<ch/fx
ft⌈↩1-˜fr↩hr⌾(ch⊸/)fr⋄fx↩hx⊸⌈⌾(ch⊸/)fx
"Special name outside of any block"_err_(/{(0=fi)∧𝕩 M bI}∘𝕩) 0<⊑fr
"Unreachable body"_err_(/CB) 1↓(»⊸∨(¬hl)⌾(ch⊸/)cq)<cm>fx