[Win32forth-cvs] win32forth/src ANSFILE.F,1.1,1.2 DBGSRC2.F,1.1,1.2 Keysave.f,1.2,1.3 Order.f,1.1,1.2

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

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

Modified Files:
	ANSFILE.F DBGSRC2.F Keysave.f Order.f 
Log Message:
gah:  minor optimizations

Index: DBGSRC2.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/DBGSRC2.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** DBGSRC2.F	21 Dec 2004 00:19:07 -0000	1.1
--- DBGSRC2.F	3 May 2005 10:04:30 -0000	1.2
***************
*** 30,36 ****
          if      >r
                  SrcInfoPtr SrcInfoCnt cells r@ read-file 2drop
!                 r> close-file drop
!         else    drop
!         then    ;
  
  ' _DoLoadInfo is DoLoadInfo
--- 30,35 ----
          if      >r
                  SrcInfoPtr SrcInfoCnt cells r@ read-file 2drop
!                 r> close-file
!         then    drop ;
  
  ' _DoLoadInfo is DoLoadInfo
***************
*** 139,140 ****
--- 138,140 ----
  MODULE
  
+