r499 - trunk/openbios-devel/forth/device

Author: blueswirl
Date: 2009-05-30 09:41:48 +0200 (Sat, 30 May 2009)
New Revision: 499

Modified:
   trunk/openbios-devel/forth/device/fcode.fs
Log:
Fix b(field) Fcode evaluation (Mark Cave-Ayland)

Modified: trunk/openbios-devel/forth/device/fcode.fs
===================================================================
--- trunk/openbios-devel/forth/device/fcode.fs	2009-05-24 11:15:48 UTC (rev 498)
+++ trunk/openbios-devel/forth/device/fcode.fs	2009-05-30 07:41:48 UTC (rev 499)
@@ -307,7 +307,9 @@
 \   Defines type of new FCode function as field.

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