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 ;