[Wisp-cvs] wisp/src/builtin builtin.wisp,1.213,1.214 stdenv.wisp,1.374,1.375

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

Update of /cvsroot/wisp/wisp/src/builtin
In directory sc8-pr-cvs1:/tmp/cvs-serv7659/src/builtin

Modified Files:
	builtin.wisp stdenv.wisp 
Log Message:
wrote |unknown?|

Index: builtin.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/builtin.wisp,v
retrieving revision 1.213
retrieving revision 1.214
diff -u -d -r1.213 -r1.214
--- builtin.wisp	20 Sep 2002 18:35:44 -0000	1.213
+++ builtin.wisp	1 Mar 2003 08:32:15 -0000	1.214
@@ -544,6 +544,9 @@
       (null? x)
       (void? x)))
 
+(define (unknown? x)
+  (eq? x #u))
+
 ;;;; The |sub| macro
 
 ;; |sub| is used to parse foo[bar]. The macro has to translate the

Index: stdenv.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/src/builtin/stdenv.wisp,v
retrieving revision 1.374
retrieving revision 1.375
diff -u -d -r1.374 -r1.375
--- stdenv.wisp	20 Sep 2002 18:35:44 -0000	1.374
+++ stdenv.wisp	1 Mar 2003 08:32:15 -0000	1.375
@@ -91,11 +91,11 @@
              symbol<? symbol>=? symbol>? symbol? system-constant
              tcchangeattr tcgetattr tcgetattr-raw tcsetattr-raw tenth
              third toposplit translate tree-copy truncate try tty? type
-             type-of u8vector? ubyte? unix-time unpack-be-integer
-             unpack-le-integer unsure-collect use utf-8->c16string
-             utf-8-first-byte->length uwyde? vector vector->list
-             vector-append vector-copy vector-fill! vector-move!
-             vector? void? wisp-string-hash with-errors-to
+             type-of u8vector? ubyte? unix-time unknown?
+             unpack-be-integer unpack-le-integer unsure-collect use
+             utf-8->c16string utf-8-first-byte->length uwyde? vector
+             vector->list vector-append vector-copy vector-fill!
+             vector-move! vector? void? wisp-string-hash with-errors-to
              with-input-from with-output-to write write-char
              write-string writeln zero?)))))
    ((*origin obj) ; => (original-name source-data ...) | #f