basis/*: Pare down some using lists

db4
Doug Coleman 2011-11-30 23:09:49 -08:00
parent cab4dc6ba3
commit e9809a67e8
2 changed files with 7 additions and 10 deletions

View File

@ -1,8 +1,7 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien alien.c-types alien.data alien.syntax arrays USING: accessors alien.data calendar classes.struct kernel math
calendar kernel math unix unix.time unix.types namespaces system system unix unix.time unix.types ;
accessors classes.struct ;
IN: calendar.unix IN: calendar.unix
: timeval>duration ( timeval -- duration ) : timeval>duration ( timeval -- duration )

View File

@ -2,14 +2,14 @@
! John Benediktsson, Slava Pestov. ! John Benediktsson, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license ! See http://factorcode.org/license.txt for BSD license
USING: accessors alien alien.c-types alien.data alien.parser USING: accessors alien alien.c-types alien.data alien.parser
arrays byte-arrays classes classes.parser arrays byte-arrays classes classes.parser classes.private
classes.struct.bit-accessors classes.tuple classes.tuple.parser classes.struct.bit-accessors classes.tuple classes.tuple.parser
combinators combinators.smart cpu.architecture fry combinators combinators.smart cpu.architecture definitions fry
functors.backend generalizations generic.parser kernel functors.backend generalizations generic generic.parser kernel
kernel.private lexer libc locals macros math math.order parser kernel.private lexer libc locals macros math math.order parser
quotations sequences slots slots.private specialized-arrays quotations sequences slots slots.private specialized-arrays
stack-checker.dependencies summary vectors vocabs.parser words stack-checker.dependencies summary vectors vocabs.loader
classes.private generic definitions vocabs ; vocabs.parser words ;
FROM: delegate.private => group-words slot-group-words ; FROM: delegate.private => group-words slot-group-words ;
QUALIFIED: math QUALIFIED: math
IN: classes.struct IN: classes.struct
@ -426,6 +426,4 @@ FUNCTOR-SYNTAX: STRUCT:
[ parse-struct-slots` ] [ ] while [ parse-struct-slots` ] [ ] while
[ >array define-struct-class ] append! ; [ >array define-struct-class ] append! ;
USING: vocabs.loader ;
{ "classes.struct" "prettyprint" } "classes.struct.prettyprint" require-when { "classes.struct" "prettyprint" } "classes.struct.prettyprint" require-when