[Wisp-cvs] wisp/tools worth,1.26,1.27

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

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

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

Index: worth
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/worth,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- worth	4 Sep 2002 14:35:28 -0000	1.26
+++ worth	7 Sep 2002 21:58:41 -0000	1.27
@@ -425,7 +425,7 @@
                        (string?  (my name (genname)
                                    (add-string name word)
                                    (cons! regstack name)
-                                   (cons! regstack (string-length word))))
+                                   (cons! regstack (length word))))
                        ((= <> < <= > >= u< u<= u> u>=)
                          ; force stack depth
                          (stack>=! 2)