[Win32forth-cvs] win32forth/src/tools tools.f,1.3,1.4

[bob a. <rd...@us...>]

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

Modified Files:
	tools.f 
Log Message:
use prepend<home>\ so tools can be used from outside build directory

Index: tools.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/tools.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** tools.f	8 Apr 2006 19:40:38 -0000	1.3
--- tools.f	11 Apr 2006 17:37:02 -0000	1.4
***************
*** 9,19 ****
  INTERNAL
  EXTERNAL        \ externally available definitions start here
- create forthbase ," \program files\win32forth"
- : sysabspath ( a1 n1 -- a2 n2)
-    forthbase count MakeAbsolutePath count ;
  defer class-browser
  :noname         ( -- ) \ load the class and vocabulary browser
                  turnkeyed? 0=
! \in-system-ok   IF  s" src\Tools\ClassBrowser.f" sysabspath INCLUDED
                  then ; is class-browser
  
--- 9,16 ----
  INTERNAL
  EXTERNAL        \ externally available definitions start here
  defer class-browser
  :noname         ( -- ) \ load the class and vocabulary browser
                  turnkeyed? 0=
! \in-system-ok   IF  s" src\Tools\ClassBrowser.f" Prepend<home>\ INCLUDED
                  then ; is class-browser
  
***************
*** 21,25 ****
  :noname         ( -- ) \ load the help-system
                  turnkeyed? 0=
! \in-system-ok   IF   s" src\Tools\HelpSystem.f" sysabspath INCLUDED
                  THEN ; is help-system
  
--- 18,22 ----
  :noname         ( -- ) \ load the help-system
                  turnkeyed? 0=
! \in-system-ok   IF   s" src\Tools\HelpSystem.f" Prepend<home>\ INCLUDED
                  THEN ; is help-system
  
***************
*** 27,31 ****
  :noname         ( -- ) \ load the xref tool
                  turnkeyed? 0=
! \in-system-ok   IF  >system s" src\Tools\xref.f" sysabspath INCLUDED system>
                  THEN ; is xref
  
--- 24,28 ----
  :noname         ( -- ) \ load the xref tool
                  turnkeyed? 0=
! \in-system-ok   IF  >system s" src\Tools\xref.f" Prepend<home>\ INCLUDED system>
                  THEN ; is xref
  
***************
*** 33,37 ****
  :noname         ( -- ) \ load the DexH tool
                  turnkeyed? 0=
! \in-system-ok   IF  >system s" src\Tools\w32fdexh.f" sysabspath INCLUDED system>
                  THEN ; is dexh
  
--- 30,34 ----
  :noname         ( -- ) \ load the DexH tool
                  turnkeyed? 0=
! \in-system-ok   IF  >system s" src\Tools\w32fdexh.f" Prepend<home>\ INCLUDED system>
                  THEN ; is dexh