r492 - trunk/openbios-devel/forth/bootstrap

Author: blueswirl
Date: 2009-05-22 19:09:52 +0200 (Fri, 22 May 2009)
New Revision: 492

Modified:
   trunk/openbios-devel/forth/bootstrap/bootstrap.fs
Log:
Fix b(do) ... b(leaves) ... b(loop)/b(+loop) (Mark Cave-Ayland)

Modified: trunk/openbios-devel/forth/bootstrap/bootstrap.fs
===================================================================
--- trunk/openbios-devel/forth/bootstrap/bootstrap.fs	2009-05-22 17:09:05 UTC (rev 491)
+++ trunk/openbios-devel/forth/bootstrap/bootstrap.fs	2009-05-22 17:09:52 UTC (rev 492)
@@ -278,13 +278,13 @@
   ['] (loop) ,
   resolve-loop
   execute-tmp-comp
-  ; compile-only
+  ; immediate

: +loop
   ['] (+loop) ,
   resolve-loop
   execute-tmp-comp
-  ; compile-only
+  ; immediate

\ Using primitive versions of i and j
 \ speeds up loops by 300%
@@ -299,7 +299,7 @@
   leaves @ 
   here leaves !  
   , 
-  ; compile-only
+  ; immediate

: ?leave if leave then ;