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