From 56ee82215ef37406927bd9a232c2146a4b7d6581 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 13 Jan 2021 13:49:53 -0500
Subject: Fix handling of unknown modifiers in structural Under

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

(limited to 'src')

diff --git a/src/r.bqn b/src/r.bqn
index aa407a69..e58e2e36 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -210,6 +210,7 @@ _structural←{
   Mon←{𝕏⊘E} ⋄ Dy←{E⊘𝕏}
   _errIf←{⊢⊘×○(1-𝔽)◶⟨StructErr˙,𝕏⟩}
   SE ← IsStructErr _errIf⍟(3≥Type)
+  NS ← IsStruct _errIf
   StructPrim ← ⊢ {𝕏𝕨} StructPrimClass ⊑ ⟨
     ⊢            # ⊢⊣˜∘○⊸⟜⊘◶
     Mon 1⊸Info   # =≠≢
@@ -219,7 +220,7 @@ _structural←{
         1⊸Depth  # ⥊↑↓⌽⍉⊏⊑
   # Mon 2⊸Depth  # >
   # Mon 2⊸Depth  # ∾         # Dyad combines
-    (3=Type)◶⟨E˙, IsStruct _errIf⟩
+    (Type-3˙)◶⟨NS, {m←𝕩⋄{NS(𝕗_m)˙0}}, {m←𝕩⋄{NS(𝕗_m_𝕘)˙0}}⟩
   ⟩˙
   StructFn ← (0⊸⊑ 0⊸≤◶⟨3,2⊸≤◶⊢‿2⟩∘⊣◶⟨
     SE · StructPrim 0⊑⊢     #  0 primitive
-- 
cgit v1.2.3