[Win32forth-cvs] win32forth/src paths.f,1.19,1.20

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

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

Modified Files:
	paths.f 
Log Message:
Jos: Restored %CURRENTDIR% otherwise the IDE will nor compile.
The problem of the ICON in  wined was not to blame on Paths.f

Index: paths.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** paths.f	30 Jul 2006 20:52:38 -0000	1.19
--- paths.f	1 Aug 2006 06:45:29 -0000	1.20
***************
*** 95,99 ****
  
                  2dup s" %FORTHDIR%"   ISTR= if 2drop &forthdir    dup ?+\ count "path-only" exit then
!                 2dup s" %CURRENTDIR%" ISTR= if 2drop  s" ."                                 exit then
                  2dup s" %APPDIR%"     ISTR= if 2drop &prognam             count "path-only" exit then
                  ;
--- 95,99 ----
  
                  2dup s" %FORTHDIR%"   ISTR= if 2drop &forthdir    dup ?+\ count "path-only" exit then
!                 2dup s" %CURRENTDIR%" ISTR= if 2drop current-dir$ dup ?+\ count "path-only" exit then
                  2dup s" %APPDIR%"     ISTR= if 2drop &prognam             count "path-only" exit then
                  ;