[Wisp-cvs] wisp/modules cgi.wim,1.41,1.42

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

Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5618/modules

Modified Files:
	cgi.wim 
Log Message:
Made cgi.wim avoid |string-length| in favour of |length|.

Index: cgi.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/cgi.wim,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- cgi.wim	4 Sep 2002 14:31:41 -0000	1.41
+++ cgi.wim	7 Sep 2002 21:57:47 -0000	1.42
@@ -53,7 +53,7 @@
           (if (not content-length)
             (raise 'content-length content-length-as-string))
           (my content (read-string *stdin* content-length)
-            (if (not (= (string-length content) content-length))
+            (if (not (= (length content) content-length))
               (raise 'short-content content))
             (my enctype (env-ref "CONTENT_TYPE")
               (if (not enctype)