From: George H. <geo...@us...> - 2008-08-21 23:39:42
|
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 ; |