Update of /cvsroot/wisp/wisp/src/builtin
In directory sc8-pr-cvs1:/tmp/cvs-serv24163/src/builtin
Modified Files:
parser.wisp preproc.wisp tostring.wisp
Log Message:
created the #unknown special object
Index: parser.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/parser.wisp,v
retrieving revision 1.122
retrieving revision 1.123
diff -u -d -r1.122 -r1.123
--- parser.wisp 18 Sep 2002 21:15:21 -0000 1.122
+++ parser.wisp 28 Feb 2003 22:40:55 -0000 1.123
@@ -154,6 +154,7 @@
(case name
((t true) '(PARSED . #t))
((f false) '(PARSED . #f))
+ ((u unknown) '(PARSED . #u))
((b) #\1)
((o) #\3)
((d) #\0)
Index: preproc.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/preproc.wisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- preproc.wisp 7 Sep 2002 22:00:01 -0000 1.7
+++ preproc.wisp 28 Feb 2003 22:40:56 -0000 1.8
@@ -71,7 +71,8 @@
((or (eq? x '$) (eq? x '$?)) x)
((fit-for-variable-name? x) (list 'GLOBAL x))
(else (raise 'preprocessing-error x))))
- ((or (number? x) (boolean? x) (char? x) (string? x))
+ ((or (number? x) (boolean? x) (char? x) (string? x)
+ (eq? x #u))
`',x)
((vector? x)
(expression (list 'quasiquote
Index: tostring.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/tostring.wisp,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -d -r1.82 -r1.83
--- tostring.wisp 18 Sep 2002 21:16:49 -0000 1.82
+++ tostring.wisp 28 Feb 2003 22:40:56 -0000 1.83
@@ -114,6 +114,7 @@
((null? s) (emit "()"))
((eq? s #t) (emit "#t"))
((eq? s #f) (emit "#f"))
+ ((eq? s '#u) (emit "#u"))
((symbol? s) (emit (symbol->string s)))
((vector? s) (if (not (check-duplicity s))
(begin
|
