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

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

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

Modified Files:
	fkernel.f 
Log Message:
Fixed SHIFTMASK

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.59
retrieving revision 1.60
diff -C2 -d -r1.59 -r1.60
*** fkernel.f	8 Oct 2008 20:24:56 -0000	1.59
--- fkernel.f	17 Dec 2008 10:17:23 -0000	1.60
***************
*** 2137,2141 ****
  DEFER PUSHKEY                                                     ' DROP    IS PUSHKEY
  DEFER "PUSHKEYS                                                   ' 2DROP   IS "PUSHKEYS
- DEFER SHIFTMASK                                                   ' K_NOOP1 IS SHIFTMASK
  
  DEFER CLS          ( -- ) ( stdout: clear screen)                 ' NOOP    IS CLS
--- 2137,2140 ----