Always make structural functions enclose atoms

1 files changed, 7 insertions, 2 deletions

diff --git a/test/cases/prim.bqn b/test/cases/prim.bqn
index e5e334f8..422288aa 100644
--- a/test/cases/prim.bqn
+++ b/test/cases/prim.bqn
@@ -209,6 +209,7 @@
 ¯6≡1‿0◶(2‿2⥊0‿0‿-‿0)6
 ! % -˙◶÷‿× 4
 ⟨3⟩≡⥊3
+(⟨⟩⊸⥊≡<)3
 ⟨3,3,3⟩≡3⥊3
 ⟨3,3,3⟩≡3<⊸⥊3
 ! % ¯3⥊3
@@ -304,6 +305,7 @@
 5‿1(<⊸⊏≡⊏)↕6‿2
 ! % (≍≍<5‿1)⊏↕6‿2
 ⟨4‿0,1‿2‿3‿2‿1‿0⟩(+⌜´⊸(×⌜)≡⊏⟜(×⌜˜))+⌜˜↕5
+∧´1=≡¨(<⟨⟩)(↑¨∾↓¨)⟨@,+,<@,↕3⟩
 "abc"≡3↑"abce"
 "e"≡¯1↑"abce"
 ""≡0↑"ab"
@@ -368,7 +370,7 @@
 ∧´5(⌽≡⊢)¨⟨"",⥊∞,↕5,↕0‿4,2‿0‿3⥊""⟩
 ∧´("bcdea"≡⌽⟜"abcde")¨1+5ׯ10‿¯2‿¯1‿0‿1‿6‿61
 ∧´⟨1,0‿2,¯1‿1‿3⟩(⊑∘⌽≡(3⊸↑)⊸⊑)⚇¯1‿∞ 2‿3‿5⥊"abcdef"
-⟨⟩(⌽≡⊢)'a'
+(⟨⟩⊸⌽≡<)'a'
 ! % /2
 ! % /1‿¯1‿0
 ! % /=⌜˜↕2
@@ -386,6 +388,7 @@
 3‿3‿3‿2‿2‿1≡/˜3‿2‿1
 3‿3‿3‿2‿2‿1≡<⊸/3‿2‿1
 (≍1∾¨1‿2‿2)≡(↕¨/↕)2‿3
+(⟨⟩⊸/≡<)'a'
 ⟨⟩(/≡⊢)≍"ab"
 ⟨2,<3⟩(/≡⥊˜¨⟜≢/⊢)'a'+4‿2⥊↕8
 
@@ -461,7 +464,8 @@
 0‿1‿0‿0≡"abc"⍷"aabcba"
 (0‿1≍0‿0)≡(1‿2≍4‿5)⍷3‿3⥊↕9
 (⌽¨≡⍉)↕2⥊3
-∧´⍉⊸≡¨⟨'a',<'a',"a","abc",""⟩
+(⍉≡<)'a'
+∧´⍉⊸≡¨⟨<'a',"a","abc",""⟩
 (↕4)(-˜⌜˜≡·⍉-⌜)↕3‿2
 ! % 0‿¯1‿1⍉(3⥊1)⥊1
 ! % 1‿0≍˘⊸⍉"ab"≍"cd"
@@ -469,6 +473,7 @@
 ! % 2‿0‿0⍉↕↕3
 ! % 3⍉↕↕3
 (2×↕3)≡0‿0⍉6+⌜○↕3
+(⟨⟩⊸⍉≡<)4
 ⟨⟩(⍉≡⊢)<4
 (2‿0‿1⥊⟨⟩)≡1‿2‿0‿1⍉↕↕4
 (↕1‿2‿0‿3)≡2<⊸⍉↕↕4