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

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

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

Modified Files:
	Primutil.f 
Log Message:
gah:Moved RADIX: to application space so words defined with it work in turnkeyed apps.

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-610old/src/Primutil.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Primutil.f	14 Dec 2004 23:53:57 -0000	1.1
--- Primutil.f	5 Aug 2006 14:51:00 -0000	1.2
***************
*** 491,496 ****
  \ BINARY double number display with commas
  
- in-system
- 
  : RADIX:        ( n1 -<name>- )
                  CREATE  , DOCOL ,  !CSP ]
--- 491,494 ----
***************
*** 498,503 ****
                          LCOUNT BASE ! EXECUTE   \ run headerless definition
                          R> BASE ! ;
-                         
- in-application
  
  2 RADIX: BUD,.R ( ud width -- )   UD,.R ;
--- 496,499 ----
***************
*** 591,595 ****
                  ( -- hndl )    \ Win32Forths startup initialization
                  0 value
!                 handles-list link, ;     
  
  :noname         ( -- )         \ chain for cleanup
--- 587,591 ----
                  ( -- hndl )    \ Win32Forths startup initialization
                  0 value
!                 handles-list link, ;
  
  :noname         ( -- )         \ chain for cleanup