[Wisp-cvs] wisp/src/native base.inc,1.98,1.99 boxes.wth,1.10,1.11

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

Update of /cvsroot/wisp/wisp/src/native
In directory sc8-pr-cvs1:/tmp/cvs-serv26624/src/native

Modified Files:
	base.inc boxes.wth 
Log Message:
s/UNDEF/BOXEMPTY/g

Index: base.inc
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/base.inc,v
retrieving revision 1.98
retrieving revision 1.99
diff -u -d -r1.98 -r1.99
--- base.inc	18 Sep 2002 21:12:38 -0000	1.98
+++ base.inc	26 Feb 2003 20:20:20 -0000	1.99
@@ -488,11 +488,11 @@
 
 ;;;; Other useful constants
 
-%define NULL   0
-%define TRUE  11
-%define FALSE 19
-%define VOID  27
-%define UNDEF 35 ; not a real value--used only in boxes
+%define NULL      0
+%define TRUE     11
+%define FALSE    19
+%define VOID     27
+%define BOXEMPTY 35 ; not a real value--used only in boxes
 
 ;;;; Flag->boolean conversion
 

Index: boxes.wth
===================================================================
RCS file: /cvsroot/wisp/wisp/src/native/boxes.wth,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- boxes.wth	30 Sep 2002 18:24:55 -0000	1.10
+++ boxes.wth	26 Feb 2003 20:20:21 -0000	1.11
@@ -30,12 +30,12 @@
   'RT_box go-discriminate)
 
 (native make_box
-  dup 0 = if UNDEF swap 1+ then
+  dup 0 = if BOXEMPTY swap 1+ then
   'RT_box go-construct-record)
 
 (defun box_ref.final
   believe %eax
-  dup UNDEF = if drop 'WB_undefined swap go-raise then
+  dup BOXEMPTY = if drop 'WB_undefined swap go-raise then
   nip
   wisp-epilogue)
 
@@ -44,10 +44,10 @@
   'RT_box 1 go-access-slot)
 
 (native box_empty dup 1 = argc drop
-  UNDEF -2 1 stack=! (->reg 0 %ecx) 'N_box_ref jump)
+  BOXEMPTY -2 1 stack=! (->reg 0 %ecx) 'N_box_ref jump)
 
 (native box_empty_huh dup 1 = argc drop
   <: swap 1 'RT_box 1 go-access-slot :>
-  UNDEF = ->wisp-bool)
+  BOXEMPTY = ->wisp-bool)
 
 ; vim: ft=worth