factor: trim using lists

[factor.git] / extra / classes / tuple / change-tracking / change-tracking.factor

diff --git a/extra/classes/tuple/change-tracking/change-tracking.factor b/extra/classes/tuple/change-tracking/change-tracking.factor
index 3e210922b5e4d5b2106d75d53bc9c404f00160d6..953c762b59a7a69b5a20573712ce198f781c80f9 100644 (file)
--- a/extra/classes/tuple/change-tracking/change-tracking.factor
+++ b/extra/classes/tuple/change-tracking/change-tracking.factor
@@ -1,5 +1,6 @@
-! (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
@@ -15,9 +16,8 @@ PREDICATE: change-tracking-tuple-class < tuple-class
 
 <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>
-