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 !
+ |
