[openfirmware] r1373 - forth/lib

Author: wmb
Date: 2009-09-24 08:09:14 +0200 (Thu, 24 Sep 2009)
New Revision: 1373

Modified:
   forth/lib/objects.fth
Log:
OFW core - added instance-specific and package-specific versions of 2value. (checkin 2)

Modified: forth/lib/objects.fth
===================================================================
--- forth/lib/objects.fth	2009-09-24 06:08:29 UTC (rev 1372)
+++ forth/lib/objects.fth	2009-09-24 06:09:14 UTC (rev 1373)
@@ -202,7 +202,9 @@
 action: >user 2@ ;
 action: >user 2! ;
 action: >user    ;
-: 2value  ( n1 n2 "name" -- )  create  2 /n* user#,  2!  use-actions  ;
+: 2value-cf  create-cf use-actions  ;
+: 2value  ( n1 n2 "name" -- )  header 2value-cf  2 /n* user#,  2!  ;
+
 \ LICENSE_BEGIN
 \ Copyright (c) 2006 FirmWorks
 \