[Win32forth-cvs] win32forth/src paths.f,1.31,1.32

[Dirk B. <db...@us...>]

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

Modified Files:
	paths.f 
Log Message:
- Fixed a bug in full-path

Index: paths.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -d -r1.31 -r1.32
*** paths.f	3 Dec 2006 19:05:30 -0000	1.31
--- paths.f	4 Dec 2006 18:01:23 -0000	1.32
***************
*** 150,158 ****
  create path-file$ MAX-PATH 1+ allot
  
- : search-error  ( addr -- )
- \ return input file and error flag
-                 count path-file$ place path-file$ count
-                 true ;
- 
  6 PROC SearchPath
  
--- 150,153 ----
***************
*** 236,240 ****
  
                  current$ restore-current \ restore current dir
!                 filename$ search-error ; \ return input file and error flag
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
--- 231,235 ----
  
                  current$ restore-current \ restore current dir
!                 a1 n1 true ;  \ return input file and error flag
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\