Update of /cvsroot/wisp/wisp/src/builtin
In directory usw-pr-cvs1:/tmp/cvs-serv15672/builtin
Modified Files:
strings.wisp
Log Message:
Made |string-compare| only use |strcomp| on old style c8string:s.
Index: strings.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/strings.wisp,v
retrieving revision 1.103
retrieving revision 1.104
diff -u -d -r1.103 -r1.104
--- strings.wisp 11 Sep 2002 17:35:03 -0000 1.103
+++ strings.wisp 11 Sep 2002 19:46:05 -0000 1.104
@@ -156,7 +156,8 @@
;; Comparison
(define (string-compare s t)
- (if (and (c8string? s) (c8string? t))
+ (if (and (eq? (type-of s) 'c8string)
+ (eq? (type-of t) 'c8string))
((asm NN_strcomp) s t)
(let ((sl (string-length s))
(tl (string-length t)))
|
