[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.94,1.95

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

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv26079

Modified Files:
	fkernel.f 
Log Message:
Removed DOESS> check entirely (it never worked anyway).

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.94
retrieving revision 1.95
diff -C2 -d -r1.94 -r1.95
*** fkernel.f	20 Jul 2013 20:35:00 -0000	1.94
--- fkernel.f	20 Jul 2013 23:58:22 -0000	1.95
***************
*** 4678,4687 ****
  |: ?TO_CHECK    ( xt -- xt_body )
                  DUP @ >R
!                 DUP DOES>? SWAP               \ no DOES> words
!                 >BODY DUP CELL+ @ -1 = ROT OR \ no special words
!                 R@ DOCON   = OR               \ no constants
!                 R@ DOCOL   = OR               \ no colon definitions
!                 R@ DOVAR   = OR               \ no variables
!                 R> DODEFER = OR               \ no deferred words
                  THROW_NOTVALUE ?THROW ;
  
--- 4678,4686 ----
  |: ?TO_CHECK    ( xt -- xt_body )
                  DUP @ >R
!                 >BODY DUP CELL+ @ -1 =  \ no special words
!                 R@ DOCON   = OR         \ no constants
!                 R@ DOCOL   = OR         \ no colon definitions
!                 R@ DOVAR   = OR         \ no variables
!                 R> DODEFER = OR         \ no deferred words
                  THROW_NOTVALUE ?THROW ;