[Win32forth-cvs] win32forth/src Extend.f,1.36,1.37

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv30752

Modified Files:
	Extend.f 
Log Message:
Jos: Prepared for the new installer. The old way will also work.

Index: Extend.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Extend.f,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -d -r1.36 -r1.37
*** Extend.f	6 Nov 2015 13:39:03 -0000	1.36
--- Extend.f	30 Dec 2015 11:39:40 -0000	1.37
***************
*** 121,126 ****
  [if]
  
!         &forthdir count pad place
!         s" Win32for.exe" pad +place
          pad count "path-file drop AddToFile
  
--- 121,126 ----
  [if]
  
!         current-dir$ count pad place
!         s" \Win32for.exe" pad +place
          pad count "path-file drop AddToFile
  
***************
*** 134,138 ****
   [then]
          Require Checksum.f
!         s" Win32for.exe" prepend<home>\ (AddCheckSum)
  
  2 pause-seconds
--- 134,138 ----
   [then]
          Require Checksum.f
!         s" Win32for.exe"  current-dir$ count makeabsolutepath count (AddCheckSum)
  
  2 pause-seconds