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
\