[Wisp-cvs] wisp/src/builtin parser.wisp,1.122,1.123 preproc.wisp,1.7,1.8 tostring.wisp,1.82,1.83

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

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