[Win32forth-cvs] win32forth/src FLOAT.F,1.52,1.53 Order.f,1.5,1.6

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

Update of /cvsroot/win32forth/win32forth/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv19547

Modified Files:
	FLOAT.F Order.f 
Log Message:
Moved a few problematic words to application space to reduce number of in system warnings

Index: Order.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Order.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Order.f	15 May 2008 04:28:26 -0000	1.5
--- Order.f	5 Oct 2008 20:29:32 -0000	1.6
***************
*** 31,35 ****
                  GET-CURRENT SWAP SET-CURRENT ;
  
! in-system
  
  : (VOC)         ( #threads -<name>- -- )
--- 31,35 ----
                  GET-CURRENT SWAP SET-CURRENT ;
  
! in-previous
  
  : (VOC)         ( #threads -<name>- -- )
***************
*** 52,55 ****
--- 52,57 ----
                  CONTEXT @ SET-CURRENT ;
  
+ in-application
+ 
  : ALSO          ( -- )                \ Duplicates topmost vocabulary in the search order
                  CONTEXT DUP CELL+  #VOCS 1- CELLS MOVE ;
***************
*** 64,70 ****
--- 66,76 ----
                  THEN    VOC-ALSO ;
  
+ in-previous
+ 
  : FORTH-WORDLIST ( -- wid )
                  ['] FORTH VCFA>VOC ;
  
+ in-application
+ 
  : GET-ORDER     ( -- widn .. wid1 n ) \ get the whole search-order
                  DEPTH >R
***************
*** 85,88 ****
--- 91,96 ----
                  THEN    ;
  
+ in-previous
+ 
  : +ORDER        ( wid - )       \ add wid to search order
                  >R GET-ORDER 1+ R> SWAP SET-ORDER ;

Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.52
retrieving revision 1.53
diff -C2 -d -r1.52 -r1.53
*** FLOAT.F	3 Aug 2008 11:08:47 -0000	1.52
--- FLOAT.F	5 Oct 2008 20:29:32 -0000	1.53
***************
*** 499,503 ****
  external
  
! in-system
  
  : FLITERAL      ( Compilation fs: r -- ; Runtime fs: -- r )  \ ANSI         Floating
--- 499,503 ----
  external
  
! \ in-system
  
  : FLITERAL      ( Compilation fs: r -- ; Runtime fs: -- r )  \ ANSI         Floating
***************
*** 510,516 ****
                  postpone flit
                  here CELLS/FLOAT cells allot f!
!                 ; immediate
  
! in-application
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
--- 510,516 ----
                  postpone flit
                  here CELLS/FLOAT cells allot f!
!                 ; immediate \ moved to application space to avoid messages.
  
! \ in-application
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\