diff --git a/src/builtins/sfns.c b/src/builtins/sfns.c index b62b9e91..2ebd8302 100644 --- a/src/builtins/sfns.c +++ b/src/builtins/sfns.c @@ -1512,18 +1512,18 @@ B reverse_ix(B t, B w, B x) { } NOINLINE B enclose_im(B t, B x) { - if (isAtm(x) || RNK(x)!=0) thrM("<⁼: Argument wasn't a rank 0 array"); + if (isAtm(x) || RNK(x)!=0) thrM("<⁼𝕩: Argument wasn't a rank 0 array"); return TO_GET(x, 0); } NOINLINE B pair_im(B t, B x) { - if (isAtm(x) || RNK(x)!=1 || IA(x)!=1) thrM("β‹ˆβΌ: Argument wasn't a length-1 list"); + if (isAtm(x) || RNK(x)!=1 || IA(x)!=1) thrM("β‹ˆβΌπ•©: Argument wasn't a length-1 list"); return TO_GET(x, 0); } B select_c1(B,B); NOINLINE B couple_im(B t, B x) { - if (isAtm(x) || RNK(x)==0 || *SH(x)!=1) thrM("≍⁼: Argument must have a leading axis of 1"); + if (isAtm(x) || RNK(x)==0 || *SH(x)!=1) thrM("≍⁼𝕩: Argument must have a leading axis of 1"); return C1(select,x); } diff --git a/test/cases/cells.bqn b/test/cases/cells.bqn index be864843..1e2c62ea 100644 --- a/test/cases/cells.bqn +++ b/test/cases/cells.bqn @@ -117,10 +117,10 @@ β‰βΌβŽ‰Β―2 4β€Ώ2β€Ώ1β€Ώ3β€Ώ2β₯Šβ†•48 %% 4β€Ώ2β€Ώ3β€Ώ2β₯Šβ†•48 β‰βΌβŽ‰1 β‹ˆ"foo" %% <"foo" β‰βΌβŽ‰1 β‹ˆ10 %% <10 -!"≍⁼: Argument must have a leading axis of 1" % β‰βΌΛ˜ 1β€Ώ10β₯Š2 -!"≍⁼: Argument must have a leading axis of 1" % β‰βΌβŽ‰Β―2 1β€Ώ1β€Ώ2β€Ώ1β€Ώ1β₯Š1 -!"≍⁼: Argument must have a leading axis of 1" % β‰βΌβŽ‰Β―2 1β€Ώ1β₯Š10 -!"≍⁼: Argument must have a leading axis of 1" % β‰βΌβŽ‰0 β‹ˆ10 +!"≍⁼𝕩: Argument must have a leading axis of 1" % β‰βΌΛ˜ 1β€Ώ10β₯Š2 +!"≍⁼𝕩: Argument must have a leading axis of 1" % β‰βΌβŽ‰Β―2 1β€Ώ1β€Ώ2β€Ώ1β€Ώ1β₯Š1 +!"≍⁼𝕩: Argument must have a leading axis of 1" % β‰βΌβŽ‰Β―2 1β€Ώ1β₯Š10 +!"≍⁼𝕩: Argument must have a leading axis of 1" % β‰βΌβŽ‰0 β‹ˆ10 %USE eqvar β‹„ (100β₯Š5↑1) β‰Λ˜_eqvar 100β₯Š7↑1 %% 0=(↕100) |˜⌜ 5β€Ώ7 %USE eqvar β‹„ ('a'+100β₯Šβ†•5) β‰Λ˜_eqvar 100β₯Šβ†•7 %% 'a'β€Ώ0 +βŽ‰1 (↕100) |˜⌜ 5β€Ώ7 diff --git a/test/cases/under.bqn b/test/cases/under.bqn index 655a86dc..972b4eab 100644 --- a/test/cases/under.bqn +++ b/test/cases/under.bqn @@ -158,18 +158,18 @@ n←500 β‹„ a←↕n β‹„ i←(-n)+↕2Γ—n β‹„ rβ†βŒ½(2Γ—n)β₯Ša β‹„ ! (⌽a) ≑ ⊒⌾< 4 %% 4 (<5)⌾< 4 %% 5 {<"cd"}⌾< "ab" %% "cd" -!"<⁼: Argument wasn't a rank 0 array" % 4⌾< "ab" -!"<⁼: Argument wasn't a rank 0 array" % {⇐}⌾< "ab" -!"<⁼: Argument wasn't a rank 0 array" % β‰βŒΎ< 2 +!"<⁼𝕩: Argument wasn't a rank 0 array" % 4⌾< "ab" +!"<⁼𝕩: Argument wasn't a rank 0 array" % {⇐}⌾< "ab" +!"<⁼𝕩: Argument wasn't a rank 0 array" % β‰βŒΎ< 2 # β‹ˆ βŠ’βŒΎβ‹ˆ 4 %% 4 (β‹ˆ5)βŒΎβ‹ˆ 4 %% 5 {β‹ˆ"cd"}βŒΎβ‹ˆ "ab" %% "cd" -!"β‹ˆβΌ: Argument wasn't a length-1 list" % 4βŒΎβ‹ˆ "ab" -!"β‹ˆβΌ: Argument wasn't a length-1 list" % {⇐}βŒΎβ‹ˆ "ab" -!"β‹ˆβΌ: Argument wasn't a length-1 list" % β‰βŒΎβ‹ˆ 2 -!"β‹ˆβΌ: Argument wasn't a length-1 list" % (<4)βŒΎβ‹ˆ 2 +!"β‹ˆβΌπ•©: Argument wasn't a length-1 list" % 4βŒΎβ‹ˆ "ab" +!"β‹ˆβΌπ•©: Argument wasn't a length-1 list" % {⇐}βŒΎβ‹ˆ "ab" +!"β‹ˆβΌπ•©: Argument wasn't a length-1 list" % β‰βŒΎβ‹ˆ 2 +!"β‹ˆβΌπ•©: Argument wasn't a length-1 list" % (<4)βŒΎβ‹ˆ 2 # k⊸⌽ !"π•¨βŒ½βΌπ•©: 𝕩 must have rank at least 1" % 1⌾(2⊸⌽) ↕10 diff --git a/test/cases/undo.bqn b/test/cases/undo.bqn index 17059e17..f80981b4 100644 --- a/test/cases/undo.bqn +++ b/test/cases/undo.bqn @@ -1,22 +1,22 @@ <⁼ <"foo" %% "foo" -!"<⁼: Argument wasn't a rank 0 array" % <⁼ 4 -!"<⁼: Argument wasn't a rank 0 array" % <⁼ ↕0 -!"<⁼: Argument wasn't a rank 0 array" % <⁼ "f" +!"<⁼𝕩: Argument wasn't a rank 0 array" % <⁼ 4 +!"<⁼𝕩: Argument wasn't a rank 0 array" % <⁼ ↕0 +!"<⁼𝕩: Argument wasn't a rank 0 array" % <⁼ "f" β‹ˆβΌ β‹ˆ"foo" %% "foo" β‹ˆβΌ "f" %% 'f' -!"β‹ˆβΌ: Argument wasn't a length-1 list" % β‹ˆβΌ 4 -!"β‹ˆβΌ: Argument wasn't a length-1 list" % β‹ˆβΌ ↕0 -!"β‹ˆβΌ: Argument wasn't a length-1 list" % β‹ˆβΌ ≍"f" +!"β‹ˆβΌπ•©: Argument wasn't a length-1 list" % β‹ˆβΌ 4 +!"β‹ˆβΌπ•©: Argument wasn't a length-1 list" % β‹ˆβΌ ↕0 +!"β‹ˆβΌπ•©: Argument wasn't a length-1 list" % β‹ˆβΌ ≍"f" ≍⁼ β‹ˆ"foo" %% <"foo" ≍⁼ β‹ˆ5 %% <5 ≍⁼ 1β€Ώ2β€Ώ3β₯Šβ†•6 %% 2β€Ώ3β₯Šβ†•6 ≍⁼ 1β€Ώ2β₯Šβ†•2 %% ↕2 -!"≍⁼: Argument must have a leading axis of 1" % ≍⁼ 5 -!"≍⁼: Argument must have a leading axis of 1" % ≍⁼ <"foo" -!"≍⁼: Argument must have a leading axis of 1" % ≍⁼ "foo" -!"≍⁼: Argument must have a leading axis of 1" % ≍⁼ 3β€Ώ1β€Ώ1β₯Š<"foo" +!"≍⁼𝕩: Argument must have a leading axis of 1" % ≍⁼ 5 +!"≍⁼𝕩: Argument must have a leading axis of 1" % ≍⁼ <"foo" +!"≍⁼𝕩: Argument must have a leading axis of 1" % ≍⁼ "foo" +!"≍⁼𝕩: Argument must have a leading axis of 1" % ≍⁼ 3β€Ώ1β€Ώ1β₯Š<"foo" !"βŒ½π•©: 𝕩 cannot be a unit" % ⌽⁼ 0 ⌽⁼ ↕10 %% 9-↕10