[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.28,1.29

[bob a. <rd...@us...>]

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