[openfirmware] r1373 - forth/lib
svn at openfirmware.info
svn at openfirmware.info
Thu Sep 24 08:09:14 CEST 2009
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
\
More information about the openfirmware
mailing list