diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-01-13 13:55:28 -0500 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-01-13 13:55:28 -0500 |
| commit | 2f1af470e07f3785ba0c98794458dc570288b615 (patch) | |
| tree | 758c9b8f907fdadae10e99a129e31c580bce2e9c /src | |
| parent | 56ee82215ef37406927bd9a232c2146a4b7d6581 (diff) | |
Fix code to reject blocks
Diffstat (limited to 'src')
| -rw-r--r-- | src/r.bqn | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |