factor: trim using lists

[factor.git] / extra / roles / roles.factor

diff --git a/extra/roles/roles.factor b/extra/roles/roles.factor
index 46da7fb54953880e19fae40e535d4dc110406189..5a6e9d53467885340cc69f139741684a288b3ac5 100644 (file)
--- a/extra/roles/roles.factor
+++ b/extra/roles/roles.factor
@@ -1,8 +1,8 @@
-! (c)2009 Joe Groff bsd license
-USING: accessors arrays classes classes.mixin classes.parser
-classes.tuple classes.tuple.parser combinators
-combinators.short-circuit kernel lexer make parser sequences
-sets strings words ;
+! Copyright (C) 2009 Joe Groff.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors arrays classes.mixin classes.parser
+classes.tuple classes.tuple.parser combinators kernel lexer make
+parser sequences sets strings words ;
 IN: roles
 
 ERROR: role-slot-overlap class slots ;
@@ -65,6 +65,4 @@ PREDICATE: role < mixin-class
     [ drop [ role? ] filter add-to-roles ] 3tri ;
 
 SYNTAX: ROLE: parse-role-definition define-role ;
-SYNTAX: TUPLE: parse-role-definition define-tuple-class-with-roles ;
-
-
+SYNTAX: ROLE-TUPLE: parse-role-definition define-tuple-class-with-roles ;