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")))
|
