[Win32forth-cvs] win32forth/src Extend.f,1.24,1.25

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

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

Modified Files:
	Extend.f 
Log Message:
Jos:  To prevent the stack depth increased in file 
> C:\\USERS\\HUG\\_FORTH\\WIN32FORTH 6.1 3.03\\SRC\\EXTEND.F at line 115
> Stack: [2] -1 -1


Index: Extend.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Extend.f,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** Extend.f	19 Apr 2009 07:47:08 -0000	1.24
--- Extend.f	16 Jan 2010 14:11:05 -0000	1.25
***************
*** 113,118 ****
  fload lib\Resources.f
  
! winver winnt4 >=
! [if]
          &forthdir count pad place
          s" Win32for.exe" pad +place
--- 113,118 ----
  fload lib\Resources.f
  
! winver winnt4 >= [if]
! 
          &forthdir count pad place
          s" Win32for.exe" pad +place