[Wisp-cvs] wisp/src/builtin strings.wisp,1.103,1.104

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

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