Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv4849/modules
Modified Files:
wisptyp.wrti
Log Message:
Dropped |sys:raw:getcwd|.
Index: wisptyp.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/wisptyp.wrti,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- wisptyp.wrti 11 Sep 2002 17:36:14 -0000 1.11
+++ wisptyp.wrti 11 Sep 2002 17:36:46 -0000 1.12
@@ -82,9 +82,9 @@
(macro untag-fixnum
3 arshift)
- (macro typetag
+ (macro get-type
dup 3 and if drop FALSE else
- dup if drop FALSE else
+ dup NULL = if drop FALSE else
cell@ then then)
;; Type tags
|
