[Win32forth-cvs] win32forth-stc/src paths.f,1.5,1.6

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

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

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

Index: paths.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/paths.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** paths.f	2 Dec 2006 15:17:06 -0000	1.5
--- paths.f	4 Dec 2006 17:58:15 -0000	1.6
***************
*** 247,254 ****
  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
--- 247,253 ----
  create path-file$ MAX-PATH 1+ allot
  
! : search-error  ( addr n -- f )
  \ return input file and error flag
!                 path-file$ place path-file$ count true ;
  
  6 PROC SearchPath
***************
*** 295,299 ****
  
                  current$ restore-current \ restore current dir
!                 filename$ search-error ; \ return input file and error flag
  
  : find-path     { a1 n1 basepath path \ filename$ current$ search-current$ -- a2 n2 f1 }
--- 294,298 ----
  
                  current$ restore-current \ restore current dir
!                 filename$ zcount search-error ; \ return input file and error flag
  
  : find-path     { a1 n1 basepath path \ filename$ current$ search-current$ -- a2 n2 f1 }
***************
*** 333,337 ****
  
                  current$ restore-current \ restore current dir
!                 filename$ search-error ; \ return input file and error flag
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
--- 332,336 ----
  
                  current$ restore-current \ restore current dir
!                 filename$ count search-error ; \ return input file and error flag
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
***************
*** 411,428 ****
  \ ** Applications that let Forth compile should not change it.
  
- in-system
- 
  : "fbase-path+  ( a1 n1 -- )            \ w32f path
  \ *G Append a directory to the Forth search base path.
                  search-base-path "path+ ;
  
- : fbase-path+   ( -<directory>- -- )    \ w32f path system
- \ *G Append a directory to the Forth search base path.
-                 /parse-s$ count "fbase-path+ ;
- 
  : "fpath+       ( a1 n1 -- )            \ w32f path
  \ *G Append a directory to the Forth search path.
                  search-path "path+ ;
  
  : fpath+        ( -<directory>- -- )    \ w32f path system
  \ *G Append a directory to the Forth search path.
--- 410,427 ----
  \ ** Applications that let Forth compile should not change it.
  
  : "fbase-path+  ( a1 n1 -- )            \ w32f path
  \ *G Append a directory to the Forth search base path.
                  search-base-path "path+ ;
  
  : "fpath+       ( a1 n1 -- )            \ w32f path
  \ *G Append a directory to the Forth search path.
                  search-path "path+ ;
  
+ in-system
+ 
+ : fbase-path+   ( -<directory>- -- )    \ w32f path system
+ \ *G Append a directory to the Forth search base path.
+                 /parse-s$ count "fbase-path+ ;
+ 
  : fpath+        ( -<directory>- -- )    \ w32f path system
  \ *G Append a directory to the Forth search path.