[Win32forth-cvs] win32forth/src paths.f,1.10,1.11

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

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

Modified Files:
	paths.f 
Log Message:
Jos: Repaired the Win32ForthIDE

Index: paths.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** paths.f	8 Jul 2006 17:58:07 -0000	1.10
--- paths.f	10 Jul 2006 19:29:06 -0000	1.11
***************
*** 46,49 ****
--- 46,54 ----
                  /parse-word count "chdir cr .dir ;
  
+ : path:  ( - )                   \ map:  2variable_path-source counted_path
+         create  -1 , 0 , MAX-PATH 1+ allot  does>   \ run-time: ( - path-ptr )
+         [ 2 cells ] literal +
+         ;
+ 
  IN-APPLICATION
  
***************
*** 56,64 ****
     create path-file$ MAX-PATH 1+ allot
  
- : path:  ( - )                   \ map:  2variable_path-source counted_path
-         create  -1 , 0 , MAX-PATH 1+ allot  does>   \ run-time: ( - path-ptr )
-         [ 2 cells ] literal +
-         ;
- 
  : path-source   ( path-ptr  - 2variable_path-source )         2 cells- ;
  
--- 61,64 ----