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
|
