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
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
|
