From b2df3496227d2d7ebe1363fad0bafbfcb2a6efb4 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 27 Nov 2021 22:09:32 -0500
Subject: =?UTF-8?q?Check=20for=20export=20statement=20used=20as=20predicat?=
 =?UTF-8?q?e=20=E2=87=90=3F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/c.bqn | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/c.bqn')

diff --git a/src/c.bqn b/src/c.bqn
index 92af4899..a4e6d011 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -141,6 +141,7 @@ Parse ← {r‿vn‿i‿e‿def←𝕨⋄nv←≠vn
   dl←«⊸∨dc←r=4                              # Dot left
   r-↩(𝕩=⊑bG)>ec←«dc<0≤r+p                   # Role ¯4 for exports: ⊑bG is ⇐
   "Invalid assignment or stranding use"_err_(↕≠) ((¯4⊸<∧≤⟜¯2)r)>(ec∨𝕩=2+⊑bG)∧»dc<0≤r
+  "Can't use export statement as predicate"_err_(↕≠) (»¯4=r)∧𝕩=pred
   "Dot must be followed by a name"_err_(↕≠) dc>«𝕩 M vi‿nv
   sr←»⌾(((⍋⊏⟜dl)⊸⊏g)⊸⊏)sl←«⊸∨r=¯2⋄ns←¬sl∨sr # Strand right and left; not stranded
   cp←𝕩=1+⊑bB                                # Closed paren
-- 
cgit v1.2.3