[Win32forth-cvs] win32forth-610old/src paths.f,1.1,1.2

[George H. <geo...@us...>]

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

Modified Files:
	paths.f 
Log Message:
gah: changed STR(NC)= to ISTR=

Index: paths.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/src/paths.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** paths.f	14 Dec 2004 23:53:58 -0000	1.1
--- paths.f	20 Jun 2005 12:25:47 -0000	1.2
***************
*** 201,205 ****
  
  : IsPathRelativeTo?     { a1 n1 a2 n2 -- f } \ return true if path a1 n1 is relative to path a2 n2
!         a1 n1 n2 MIN a2 OVER STR(NC)= ;
  
  : MakePathRelativeTo    ( a1 n1 a2 n2 -- a3 ) \ make path a1 n1 relative to path a2 n2
--- 201,205 ----
  
  : IsPathRelativeTo?     { a1 n1 a2 n2 -- f } \ return true if path a1 n1 is relative to path a2 n2
!         a1 n1 n2 MIN a2 OVER ISTR= ;
  
  : MakePathRelativeTo    ( a1 n1 a2 n2 -- a3 ) \ make path a1 n1 relative to path a2 n2