[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.57,1.58

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

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

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

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.57
retrieving revision 1.58
diff -C2 -d -r1.57 -r1.58
*** fkernel.f	2 Sep 2008 07:01:23 -0000	1.57
--- fkernel.f	5 Oct 2008 20:29:32 -0000	1.58
***************
*** 3300,3309 ****
  : REVEAL        ( -- ) LAST @ N>LINK LAST-LINK @ ! ;
  
! in-system
  
  : LITERAL       ( n -- )
!                 COMPILE LIT , ; IMMEDIATE
  
! in-application
  
  : CHAR          ( <c> -- char ) \ parse char from input stream and put its ascii
--- 3300,3309 ----
  : REVEAL        ( -- ) LAST @ N>LINK LAST-LINK @ ! ;
  
! \ in-system
  
  : LITERAL       ( n -- )
!                 COMPILE LIT , ; IMMEDIATE \ moved to application space to avoid messages.
  
! \ in-application
  
  : CHAR          ( <c> -- char ) \ parse char from input stream and put its ascii
***************
*** 4583,4591 ****
  : (IS)          ( xt -- )   @(IP) >BODY ! ;
  
- in-system
- 
  : ?IS           ( xt -- xt )                    \ error if not a deferred word
                  DUP @ DODEFER <> THROW_NOTDEFER ?THROW ;
  
  : IS            ( xt -<name>- ) \ assign xt to a defer
                  STATE @
--- 4583,4591 ----
  : (IS)          ( xt -- )   @(IP) >BODY ! ;
  
  : ?IS           ( xt -- xt )                    \ error if not a deferred word
                  DUP @ DODEFER <> THROW_NOTDEFER ?THROW ;
  
+ in-system
+ 
  : IS            ( xt -<name>- ) \ assign xt to a defer
                  STATE @