Virtualization/openbios
1
0
Fork 0
mirror of https://gitlab.com/qemu-project/openbios.git synced 2024-02-13 08:34:06 +08:00
Code Issues Projects Releases Wiki Activity

Fix b(case)...b(of)...b(endof)...b(endcase) (Mark Cave-Ayland)

Browse Source 
git-svn-id: svn://coreboot.org/openbios/trunk/openbios-devel@498 f158a5a8-5612-0410-a976-696ce0be7e32
This commit is contained in:
Blue Swirl
2009-05-24 11:15:48 +00:00
parent 0ac767a200
commit 14cdca306d
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
forth/bootstrap/bootstrap.fs
View File

@@ -318,7 +318,7 @@ variable leaves 0 leaves !
['] then execute ['] then execute
loop loop
execute-tmp-comp execute-tmp-comp
; compile-only ; immediate
: of : of
1 + >r 1 + >r
@@ -327,13 +327,13 @@ variable leaves 0 leaves !
['] if execute ['] if execute
['] drop , ['] drop ,
r> r>
; compile-only ; immediate
: endof : endof
>r >r
['] else execute ['] else execute
r> r>
; compile-only ; immediate
\ \