Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23431/src/kernel
Modified Files:
fkernel.f
Log Message:
add dup-warning? to be able to turn off redefinition warnings
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** fkernel.f 1 May 2006 03:11:48 -0000 1.28
--- fkernel.f 13 May 2006 20:46:40 -0000 1.29
***************
*** 3102,3105 ****
--- 3102,3112 ----
\ : IN-APP? ( -- f ) DP ADP = ; \ if the DP is set to ADP
+ TRUE VALUE DUP-WARNING?
+ : DUP-WARNING-OFF ( -- ) \ disable warning for redefinitions
+ FALSE TO DUP-WARNING? ;
+
+ : DUP-WARNING-ON ( -- ) \ enable warning for redefinitions
+ TRUE TO DUP-WARNING? ;
+
TRUE VALUE SYS-WARNING?
***************
*** 4264,4269 ****
WARNING @ IF
2DUP CURRENT @ (SEARCH-SELF) IF
! DROP
WARN_NOTUNIQUE WARNMSG
THEN
THEN
--- 4271,4277 ----
WARNING @ IF
2DUP CURRENT @ (SEARCH-SELF) IF
! DROP DUP-WARNING? IF
WARN_NOTUNIQUE WARNMSG
+ THEN
THEN
THEN
|
