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

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

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

Modified Files:
	fkernel.f 
Log Message:
Moved SLITERAL and .S to application space

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.58
retrieving revision 1.59
diff -C2 -d -r1.58 -r1.59
*** fkernel.f	5 Oct 2008 20:29:32 -0000	1.58
--- fkernel.f	8 Oct 2008 20:24:56 -0000	1.59
***************
*** 3503,3512 ****
                  COMPILE (.") ," ; IMMEDIATE
  
  : SLITERAL      ( a1 n1 -- )                    \ compile string as literal
                  COMPILE (S")
                  HERE >R ", 0 C, ALIGN R> COUNT \N->CRLF ; IMMEDIATE
  
- in-application
- 
  \ tjz, as posted from Bernd Paysan Thu, 05 Jul 2001  Thanks Bernd
  
--- 3503,3512 ----
                  COMPILE (.") ," ; IMMEDIATE
  
+ in-application
+ 
  : SLITERAL      ( a1 n1 -- )                    \ compile string as literal
                  COMPILE (S")
                  HERE >R ", 0 C, ALIGN R> COUNT \N->CRLF ; IMMEDIATE
  
  \ tjz, as posted from Bernd Paysan Thu, 05 Jul 2001  Thanks Bernd
  
***************
*** 5777,5782 ****
                  KEY ( k_ESC ) 27 = IF ABORT THEN ;
  
- IN-SYSTEM
- 
  : .S            ( -- ) \ display current data stack contents
                  ?STACK
--- 5777,5780 ----
***************
*** 5795,5798 ****
--- 5793,5798 ----
                  THEN    DROP ;
  
+ in-system
+ 
  : .NAME         ( xt -- )       \ show name, if can't find name, show address
                  DUP >NAME DUP NAME> ['] [UNKNOWN] =     \ if not found