[Win32forth-cvs] win32forth/src 486ASM.F,1.3,1.4

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31322/win32forth/src

Modified Files:
	486ASM.F 
Log Message:
gah:reverted -IF to DUP IF for ANSI compatibility

Index: 486ASM.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/486ASM.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** 486ASM.F	2 Jun 2005 21:14:55 -0000	1.3
--- 486ASM.F	6 Jul 2005 08:54:29 -0000	1.4
***************
*** 2083,2087 ****
  : /set-prefix ( set the assembler to prefix mode, leave a mode flag )
          ( -- prev. mode==postfix )
!         /postfix? -if >r a; /prefix r> then ;
  
  : /set-postfix ( set the assembler to postfix mode, leave a mode flag )
--- 2083,2087 ----
  : /set-prefix ( set the assembler to prefix mode, leave a mode flag )
          ( -- prev. mode==postfix )
!         /postfix? dup if >r a; /prefix r> then ;
  
  : /set-postfix ( set the assembler to postfix mode, leave a mode flag )
***************
*** 2094,2095 ****
--- 2094,2096 ----
  
  only forth definitions base !
+