From cf072f50d2e1c600c788d37645721a94c55377c8 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Fri, 4 Sep 2020 18:43:56 -0400
Subject: =?UTF-8?q?Let's=20never=20use=20=E2=80=A2UCS=20again?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 test/cmpref.bqn | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'test/cmpref.bqn')

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
-- 
cgit v1.2.3