[Wisp-cvs] wisp/modules wisptyp.wrti,1.11,1.12

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

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