[Win32forth-cvs] win32forth/src Utils.f,1.14,1.15

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

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

Modified Files:
	Utils.f 
Log Message:
gah: Fixed minor bug in copyfile

Index: Utils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** Utils.f	21 Oct 2006 10:54:55 -0000	1.14
--- Utils.f	6 Feb 2007 11:31:32 -0000	1.15
***************
*** 338,342 ****
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
! : copyfile      { \ from$ to$ -<from to>- }     \ copy a file to a directory
                  max-path localAlloc: from$
                  max-path localAlloc: to$
--- 338,346 ----
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
! : copyfile      ( -<from to>- -- )      \ W32F
! \ *G Copy a file to a directory. The from string is made up of the path (either absolute
! \ ** or relative) and the file name (with extension). The to string is the path (either
! \ ** absolute or relative) only; the filename is taken from the from string.
!                 { | from$ to$ }
                  max-path localAlloc: from$
                  max-path localAlloc: to$