diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-01-13 13:49:53 -0500 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-01-13 13:49:53 -0500 |
| commit | 56ee82215ef37406927bd9a232c2146a4b7d6581 (patch) | |
| tree | 59465ab861c08d8ac537ba6c38f9422cbda14761 /src | |
| parent | 477c1df9814722fd6dd94d0b8794a39ae99c4080 (diff) | |
Fix handling of unknown modifiers in structural Under
Diffstat (limited to 'src')
| -rw-r--r-- | src/r.bqn | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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 |