r498 - trunk/openbios-devel/forth/bootstrap

Author: blueswirl
Date: 2009-05-24 13:15:48 +0200 (Sun, 24 May 2009)
New Revision: 498

Modified:
   trunk/openbios-devel/forth/bootstrap/bootstrap.fs
Log:
Fix b(case)...b(of)...b(endof)...b(endcase) (Mark Cave-Ayland)

Modified: trunk/openbios-devel/forth/bootstrap/bootstrap.fs
===================================================================
--- trunk/openbios-devel/forth/bootstrap/bootstrap.fs	2009-05-24 11:04:06 UTC (rev 497)
+++ trunk/openbios-devel/forth/bootstrap/bootstrap.fs	2009-05-24 11:15:48 UTC (rev 498)
@@ -318,7 +318,7 @@
     ['] then execute
   loop
   execute-tmp-comp
-; compile-only
+; immediate

: of 
   1 + >r 
@@ -327,13 +327,13 @@
   ['] if execute 
   ['] drop , 
   r> 
-  ; compile-only
+  ; immediate

: endof
> r

['] else execute 
   r> 
-  ; compile-only
+  ; immediate

\