wisp-cvs

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

Update of /cvsroot/wisp/wisp/tools
In directory usw-pr-cvs1:/tmp/cvs-serv5007/tools

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

Index: pretty.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/pretty.wisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- pretty.wisp	26 Aug 2002 16:18:24 -0000	1.6
+++ pretty.wisp	7 Sep 2002 21:56:05 -0000	1.7
@@ -79,7 +79,7 @@
                               (serial (cut char=? <> #\;)
                                       not)
                               s)
-                            (string-length s))
+                            (length s))
                         3)
                   'major-comment
                   'comment))