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

[Dirk B. <db...@us...>]

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

Modified Files:
	fkernel.f 
Log Message:
dbu: changed TYPE to handle the BELL (ASCII 7), BS (ASCII 8), LF(ASCII 10) and CR (ASCII 13) control characters like EMIT does

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** fkernel.f	3 Jan 2005 23:46:33 -0000	1.3
--- fkernel.f	17 Jan 2005 18:56:39 -0000	1.4
***************
*** 2154,2163 ****
                  1 ( SW_NORMAL ) _conHndl call ShowWindow DROP ;
  
- : x_TYPE        ( addr len -- )
-                 SWAP Call c_type drop ;
- 
  : x_EMIT        ( char -- )
                  Call c_emit drop ;
  
  : x_CR          ( -- )
                  Call c_cr drop ;
--- 2154,2163 ----
                  1 ( SW_NORMAL ) _conHndl call ShowWindow DROP ;
  
  : x_EMIT        ( char -- )
                  Call c_emit drop ;
  
+ : x_TYPE        ( addr len -- )
+                 SWAP Call c_type drop ;
+ 
  : x_CR          ( -- )
                  Call c_cr drop ;
***************
*** 5768,5769 ****
--- 5768,5770 ----
  \ Prad~
  
+