From c1a48cf75ce87419c9714ed99b9c1ab365e17469 Mon Sep 17 00:00:00 2001
From: Blue Swirl <blauwirbel@gmail.com>
Date: Sat, 30 May 2009 07:41:48 +0000
Subject: [PATCH] Fix b(field) Fcode evaluation (Mark Cave-Ayland)

git-svn-id: svn://coreboot.org/openbios/trunk/openbios-devel@499 f158a5a8-5612-0410-a976-696ce0be7e32
---
 forth/device/fcode.fs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/forth/device/fcode.fs b/forth/device/fcode.fs
index 70be255..1570171 100644
--- 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>