From a6d4a42a64089e9212a742d4abe5157a5c42ff44 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 15 Nov 2020 10:59:33 -0500
Subject: Error checking for non-functions as the combiners in trains

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

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index 6cb1260b..72232152 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -175,7 +175,8 @@ Parse ← {r‿vn‿ind←𝕨⋄nv←≠vn
   idbc←¯1⌽⟨⥊⍉>ib,3¨ed,ex≠⊸(«-⊢)ed,14¨ed⟩
 
   ta←tr∧2(>∨|)ps(⊢-T)+`¬ro
-  fa←/(ta∨ro∨«⊸∨ps<aa)<(r=1)∨»op
+  fa←/(fe←ta∨ro∨«⊸∨ps<aa)<ff←(r=1)∨»op
+  "Second-level parts of a train must be functions"_err_(g⊸⊏) tr>fe∨ff
   dy←fa⊏«(𝕩=⊑bO)<(tr∧r≥0)∨ro<r=0
   ob←pr⊏/¯1(⊢-»)u←⍷∧pr←𝕩⊏˜pi←/𝕩<sep
   cn←pi∾lt←/𝕩≥ci←vi+nv⋄ob∾↩(ci-˜≠u)+lt⊏𝕩
-- 
cgit v1.2.3