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