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

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

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

Modified Files:
	paths.f 
Log Message:
Changed MakeAbsolutePath to add a termination 0 byte to the path string.

Index: paths.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** paths.f	1 Nov 2005 12:21:40 -0000	1.6
--- paths.f	24 Dec 2005 11:52:08 -0000	1.7
***************
*** 195,199 ****
               THEN
          else DROP <AbsRelPath$> PLACE
!         then <AbsRelPath$> ;
  
  : IsPathRelativeTo?     { a1 n1 a2 n2 -- f } \ return true if path a1 n1 is relative to path a2 n2
--- 195,199 ----
               THEN
          else DROP <AbsRelPath$> PLACE
!         then <AbsRelPath$> dup +null ;
  
  : IsPathRelativeTo?     { a1 n1 a2 n2 -- f } \ return true if path a1 n1 is relative to path a2 n2