Update of /cvsroot/wisp/wisp/src/builtin
In directory sc8-pr-cvs1:/tmp/cvs-serv30889/src/builtin
Modified Files:
tostring.wisp
Log Message:
cosmetical fix
Index: tostring.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/tostring.wisp,v
retrieving revision 1.83
retrieving revision 1.84
diff -u -d -r1.83 -r1.84
--- tostring.wisp 28 Feb 2003 22:40:56 -0000 1.83
+++ tostring.wisp 28 Feb 2003 22:55:51 -0000 1.84
@@ -114,7 +114,7 @@
((null? s) (emit "()"))
((eq? s #t) (emit "#t"))
((eq? s #f) (emit "#f"))
- ((eq? s '#u) (emit "#u"))
+ ((eq? s #u) (emit "#u"))
((symbol? s) (emit (symbol->string s)))
((vector? s) (if (not (check-duplicity s))
(begin
|
