[OpenBIOS] r492 - trunk/openbios-devel/forth/bootstrap
svn at openbios.org
svn at openbios.org
Fri May 22 19:09:52 CEST 2009
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 ;
More information about the OpenBIOS
mailing list