[Wisp-cvs] wisp/tests unicode.wisp,1.14,1.15

[<di...@us...>]

Update of /cvsroot/wisp/wisp/tests
In directory usw-pr-cvs1:/tmp/cvs-serv4244/tests

Modified Files:
	unicode.wisp 
Log Message:
Reformatted unicode.wisp .

Index: unicode.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/tests/unicode.wisp,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- unicode.wisp	26 Aug 2002 16:18:24 -0000	1.14
+++ unicode.wisp	7 Sep 2002 21:53:17 -0000	1.15
@@ -45,11 +45,11 @@
                   (string=? cat "Nl")))
       (miss 'char-number-letter? char name cat))
     (if (not (eq? (char-whitespace? char)
-                  (or (char=? (string-ref cat 0) #\Z)
+                  (or (char=? cat[0] #\Z)
                       (char<=? #\U+0009 char #\U+000D))))
       (miss 'char-whitespace? char name cat))
     (if (not (eq? (char-punctuation? char)
-                  (char=? (string-ref cat 0) #\P)))
+                  (char=? cat[0] #\P)))
       (miss 'char-punctuation? char name cat))
     (if (not (eq? (char-punctuation-connector? char)
                   (string=? cat "Pc")))
@@ -70,7 +70,7 @@
                   (string=? cat "Pf")))
       (miss 'char-punctuation-final-quote? char name cat))
     (if (not (eq? (char-symbol? char)
-                  (char=? (string-ref cat 0) #\S)))
+                  (char=? cat[0] #\S)))
       (miss 'char-symbol? char name cat))
     (if (not (eq? (char-symbol-math? char)
                   (string=? cat "Sm")))
@@ -88,7 +88,7 @@
                   (string=? cat "Lt")))
       (miss 'char-title-case? char name cat))
     (if (not (eq? (char-letter? char)
-                  (char=? (string-ref cat 0) #\L)))
+                  (char=? cat[0] #\L)))
       (miss 'char-letter? char name cat))
     (if (not (eq? (char-letter-modifier? char)
                   (string=? cat "Lm")))