Fix b(field) Fcode evaluation (Mark Cave-Ayland)

git-svn-id: svn://coreboot.org/openbios/trunk/openbios-devel@499 f158a5a8-5612-0410-a976-696ce0be7e32
2024-02-13 08:34:06 +08:00 · 2009-05-30 07:41:48 +00:00
parent 14cdca306d
commit c1a48cf75c
1 changed files with 3 additions and 1 deletions
--- a/forth/device/fcode.fs
+++ b/forth/device/fcode.fs
@@ -307,7 +307,9 @@ defer fcode-c@             \ get byte
 \   Defines type of new FCode function as field.

 : b(field)
-  $create
+  6 ,
+  ['] noop ,
+  reveal
    over ,
    +
  does>