! Copyright (C) 2004, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: words accessors sequences kernel assocs combinators
-classes classes.private classes.algebra classes.algebra.private
-classes.builtin namespaces arrays math quotations make ;
+USING: accessors assocs classes classes.algebra
+classes.algebra.private classes.builtin classes.private
+combinators kernel make sequences words ;
IN: classes.intersection
PREDICATE: intersection-class < class
! See http://factorcode.org/license.txt for BSD license.
USING: accessors classes classes.algebra
classes.algebra.private classes.private classes.union.private
-effects kernel words sequences arrays ;
+kernel words ;
IN: classes.maybe
! The class slot has to be a union of a word and a classoid
! Copyright (C) 2004, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: classes classes.private classes.algebra
-classes.algebra.private classes.union classes.union.private
-words kernel sequences definitions combinators arrays assocs
-generic accessors ;
+USING: accessors assocs classes classes.algebra
+classes.algebra.private classes.private classes.union
+classes.union.private combinators definitions kernel sequences
+words ;
IN: classes.mixin
PREDICATE: mixin-class < union-class "mixin" word-prop ;
! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: parser vocabs.parser words kernel classes compiler.units lexer ;
+USING: classes compiler.units kernel parser vocabs.parser words ;
IN: classes.parser
: save-class-location ( class -- )
! Copyright (C) 2004, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: classes classes.private classes.algebra
-classes.algebra.private kernel namespaces make words sequences
-quotations arrays kernel.private assocs combinators ;
+USING: classes classes.algebra classes.algebra.private
+classes.private kernel make words ;
IN: classes.predicate
PREDICATE: predicate-class < class
! Copyright (C) 2008, 2010 Doug Coleman, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: classes classes.algebra classes.algebra.private
-classes.predicate classes.predicate.private kernel sequences
-words vocabs.parser accessors ;
+USING: classes classes.algebra.private classes.predicate
+classes.predicate.private kernel sequences words ;
IN: classes.singleton
<PRIVATE
! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: accessors kernel sets namespaces make sequences parser
-lexer combinators words classes.parser classes.tuple arrays
-slots math assocs parser.notes classes classes.algebra ;
+USING: accessors arrays assocs classes.parser classes.tuple
+combinators kernel lexer make parser parser.notes sequences
+sets slots ;
IN: classes.tuple.parser
: slot-names ( slots -- seq )
! Copyright (C) 2005, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: arrays definitions hashtables kernel kernel.private math
-namespaces make sequences sequences.private strings vectors
-words quotations memory combinators generic classes
-classes.algebra classes.algebra.private classes.builtin
-classes.private slots.private slots math.private accessors
-assocs effects ;
+USING: accessors arrays assocs classes classes.algebra
+classes.algebra.private classes.builtin classes.private
+combinators definitions effects generic kernel kernel.private
+make math math.private memory namespaces quotations sequences
+sequences.private slots slots.private strings words ;
IN: classes.tuple
PREDICATE: tuple-class < class
! Copyright (C) 2004, 2011 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs classes classes.algebra
-classes.algebra.private classes.builtin
-classes.private combinators definitions kernel kernel.private
-math math.private quotations sequences words vocabs ;
+classes.algebra.private classes.builtin classes.private
+combinators definitions kernel kernel.private math math.private
+quotations sequences words ;
IN: classes.union
PREDICATE: union-class < class