Let's never use •UCS again

2 files changed, 4 insertions, 4 deletions

diff --git a/test/bt b/test/bt
index a8333a4d..ce4e9a18 100755
--- a/test/bt
+++ b/test/bt
@@ -3,6 +3,6 @@
 dRun ← ⟨"dRun"⟩ •EX •path∾"../cshim.bqn"
 c ← ∾(•LNS •path∾∾⟜"cases.bqn")¨""‿"b"
 {𝕩: c ∾↩ (¬":"⊑∘∊⊢)¨⊸/ "1 %"⊸∾¨ (3≤≠)◶0‿(('#'≠2⊸⊑)∧"  "≡2⊸↑)¨⊸/ •LNS •path∾"testref.bqn" }⍟⊢⊑(<"-ref")∊•args
-M ← {e‿b: (⍎e)⊸≢◶""‿{(•UCS 10)∾˜""""∾b∾""": expected "∾e∾" but received "∾⍕𝕩} DRun b}
+M ← {e‿b: (⍎e)⊸≢◶""‿{(@+10)∾˜""""∾b∾""": expected "∾e∾" but received "∾⍕𝕩} DRun b}
 r ← '%' M∘((+`-2⊸×)∘=⊔⊢)¨ c
 • ← ("All "∾(⍕≠c)∾" passed!")⍟(0=≠) ∾r
diff --git a/test/cmpref.bqn b/test/cmpref.bqn
index afe5f959..aa71661d 100755
--- a/test/cmpref.bqn
+++ b/test/cmpref.bqn
@@ -17,12 +17,12 @@ itr ← 0⥊˜≠chr
 
 init ← " "⊸∾¨(/⟜"_"¨nc/0‿1‿1)∾¨(nc/"FMD")∾¨(nc+´⊸↑⥊"ABC"∾⌜•a)
 post ← ∾⟜" "¨/⟜"_"¨nc/0‿0‿1
-names ← init∾¨(•UCS 48)∾¨post
+names ← init∾¨'0'∾¨post
 
 Inc ← {
   i←⊑chr⊐𝕩
   n←0 ⋄ itr↩{n↩1+𝕩}⌾(i⊑⊢)itr
-  names↩((i⊑init)∾(•UCS 48+n)∾i⊑post)⌾(i⊑⊢)names
+  names↩((i⊑init)∾('0'+n)∾i⊑post)⌾(i⊑⊢)names
 }
 
 # built-in assumptions
@@ -56,5 +56,5 @@ E_redef ← { # handles [fmd] [←↩]
 
 pre ∾↩ E_isdef◶E_proc‿E_redef¨ impl
 t ← (¬∘⊑':'∊⊢)¨⊸/ 3⊸↓⌾(3⊸⊑) •LNS •path∾"testref.bqn"
-res ← DRun ∾ ∾⟜(•UCS 10)¨ pre ∾ E_proc¨ t
+res ← DRun ∾ ∾⟜(@+10)¨ pre ∾ E_proc¨ t
 • ← ("All "∾(⍕≠res)∾" passed!")⍟(0=≠) /res