[OpenBIOS] r498 - trunk/openbios-devel/forth/bootstrap
svn at openbios.org
svn at openbios.org
Sun May 24 13:15:48 CEST 2009
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
\
More information about the OpenBIOS
mailing list