[Win32forth-cvs] win32forth/src/tools dfc.F,1.1,1.2

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

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

Modified Files:
	dfc.F 
Log Message:
gah:  replaced 2swap 2drop with 2nip and other minor optimizations

Index: dfc.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/dfc.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** dfc.F	21 Dec 2004 00:19:11 -0000	1.1
--- dfc.F	3 May 2005 15:05:54 -0000	1.2
***************
*** 597,601 ****
             dup 1+  X !
             SLOT @  CANDIDATE Y !       ( )
!        ELSE   2DROP DROP   THEN
     R>  LCS @ =                         ( flag)
     dup IF ( Move fence. )
--- 597,601 ----
             dup 1+  X !
             SLOT @  CANDIDATE Y !       ( )
!        ELSE   3DROP THEN
     R>  LCS @ =                         ( flag)
     dup IF ( Move fence. )
***************
*** 871,872 ****
--- 871,873 ----
  \\  End of Differential File Comparison
  
+