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

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

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

Modified Files:
	fkernel.f 
Log Message:
Corrected fault in TO not throwing errors for DOES> words.

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.93
retrieving revision 1.94
diff -C2 -d -r1.93 -r1.94
*** fkernel.f	30 Jun 2013 14:30:21 -0000	1.93
--- fkernel.f	20 Jul 2013 20:35:00 -0000	1.94
***************
*** 4678,4687 ****
  |: ?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@ DODOES  = OR         \ no DOES> words
!                 R@ DOVAR   = OR         \ no variables
!                 R> DODEFER = OR         \ no deferred words
                  THROW_NOTVALUE ?THROW ;
  
--- 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 ;