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