[Wisp-cvs] wisp/modules morse.wim,1.6,1.7

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

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)