Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27125/src/kernel
Modified Files:
fkernel.f
Log Message:
Minor tweeks
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.51
retrieving revision 1.52
diff -C2 -d -r1.51 -r1.52
*** fkernel.f 19 Aug 2008 12:45:46 -0000 1.51
--- fkernel.f 21 Aug 2008 23:39:37 -0000 1.52
***************
*** 4270,4276 ****
\ -------------------- Structured Conditionals ------------------------------
! : ?PAIRS ( n1 n2 -- ) XOR THROW_MISMATCH ?THROW ;
! \ in-system
: ?EXEC STATE @ THROW_INTERPONLY ?THROW ;
--- 4270,4278 ----
\ -------------------- Structured Conditionals ------------------------------
! in-application
! : ?PAIRS ( n1 n2 -- ) XOR THROW_MISMATCH ?THROW ; \ Sometimes used in applications.
!
! in-system
: ?EXEC STATE @ THROW_INTERPONLY ?THROW ;
|
