Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5409/modules
Modified Files:
morse.wim
Log Message:
Made morse.wim avoid |string-length| in favour of |length|.
Index: morse.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/morse.wim,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- morse.wim 26 Aug 2002 16:14:54 -0000 1.6
+++ morse.wim 7 Sep 2002 21:57:08 -0000 1.7
@@ -65,7 +65,7 @@
(emit #\space))
(set! extra-whitespace 0)
(emit (if (< state
- (string-length morse-tree))
+ (length morse-tree))
morse-tree[state]
(begin
(while (even? state)
|
