Update of /cvsroot/win32forth/win32forth-610old/demos/MdiEdit
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14222/win32forth-610old/demos/MdiEdit
Modified Files:
AnsLink.f ClassBrowser.f
Log Message:
gah: changed STR(NC)= to ISTR=
Index: AnsLink.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/demos/MdiEdit/AnsLink.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** AnsLink.f 14 Dec 2004 23:53:46 -0000 1.1
--- AnsLink.f 20 Jun 2005 12:25:46 -0000 1.2
***************
*** 394,398 ****
if ANS-WORDS >r
begin 2dup r@ count dup
! while STR(NC)= 0<>
if 2drop r> exit then
r> skip-string skip-string skip-string >r
--- 394,398 ----
if ANS-WORDS >r
begin 2dup r@ count dup
! while ISTR= 0<>
if 2drop r> exit then
r> skip-string skip-string skip-string >r
Index: ClassBrowser.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/demos/MdiEdit/ClassBrowser.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ClassBrowser.f 14 Dec 2004 23:53:46 -0000 1.1
--- ClassBrowser.f 20 Jun 2005 12:25:46 -0000 1.2
***************
*** 200,204 ****
if \ if it's defind in FKERNEL.F than we must
\ add the path to the file
! count 2dup KERNFILE count STR(NC)=
if Prepend<home>\ then
--- 200,204 ----
if \ if it's defind in FKERNEL.F than we must
\ add the path to the file
! count 2dup KERNFILE count ISTR=
if Prepend<home>\ then
|
