-! (c)2009 Joe Groff bsd license
-USING: accessors classes classes.tuple fry kernel sequences slots ;
+! Copyright (C) 2009 Joe Groff.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors classes classes.tuple kernel sequences slots ;
IN: classes.tuple.change-tracking
TUPLE: change-tracking-tuple
<PRIVATE
-M: change-tracking-tuple-class writer-quot ( class slot-spec -- )
+M: change-tracking-tuple-class writer-quot ( class slot-spec -- quot )
[ call-next-method ]
[ name>> "changed?" = [ '[ _ [ t >>changed? drop ] bi ] ] unless ] bi ;
PRIVATE>
-