[Wisp-cvs] wisp/modules shell.wisp,1.34,1.35

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

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

Modified Files:
	shell.wisp 
Log Message:
Made shell.wisp avoid |string-length| in favour of |length|.

Index: shell.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/shell.wisp,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -d -r1.34 -r1.35
--- shell.wisp	4 Sep 2002 14:37:34 -0000	1.34
+++ shell.wisp	7 Sep 2002 21:56:41 -0000	1.35
@@ -86,7 +86,7 @@
         (my input-pos 0
           (my last-char #f
             (my hilit #f
-              (while (< input-pos (string-length str))
+              (while (< input-pos (length str))
                 (my ch str[input-pos]
                   (case ch
                     ((#\space)