From 2f1af470e07f3785ba0c98794458dc570288b615 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 13 Jan 2021 13:55:28 -0500
Subject: Fix code to reject blocks

---
 src/r.bqn | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index e58e2e36..a3c902f4 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -208,7 +208,7 @@ _structural←{
   Depth←1 _sfn ⋄ Info←0 _sfn
 
   Mon←{𝕏⊘E} ⋄ Dy←{E⊘𝕏}
-  _errIf←{⊢⊘×○(1-𝔽)◶⟨StructErr˙,𝕏⟩}
+  _errIf←{⊢⊘×○(1-𝔽)◶⟨E,𝕏⟩}
   SE ← IsStructErr _errIf⍟(3≥Type)
   NS ← IsStruct _errIf
   StructPrim ← ⊢ {𝕏𝕨} StructPrimClass ⊑ ⟨
@@ -224,7 +224,7 @@ _structural←{
   ⟩˙
   StructFn ← (0⊸⊑ 0⊸≤◶⟨3,2⊸≤◶⊢‿2⟩∘⊣◶⟨
     SE · StructPrim 0⊑⊢     #  0 primitive
-    StructErr˙              #  1 block
+    E˙                      #  1 block
     Recompose⟜{StructFn¨𝕩}  #    other operation
     SE 0⊑⊢                  # ¯1 constant
   ⟩ 1⊸Drop) Decompose
-- 
cgit v1.2.3