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
|
