core: cleanup USING lists.

db4
John Benediktsson 2013-03-05 10:34:47 -08:00
parent 5751f6d309
commit 5487480126
40 changed files with 94 additions and 104 deletions

View File

@ -1,9 +1,9 @@
! Copyright (C) 2008, 2011 Slava Pestov. ! Copyright (C) 2008, 2011 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays sequences kernel kernel.private accessors math USING: accessors alien arrays byte-arrays init io io.encodings
alien.accessors byte-arrays io io.encodings io.encodings.utf8 io.encodings.utf16n io.encodings.utf8 io.streams.byte-array
io.encodings.utf16n io.streams.byte-array io.streams.memory system io.streams.memory kernel kernel.private namespaces sequences
system.private alien strings combinators namespaces init ; strings system system.private ;
IN: alien.strings IN: alien.strings
GENERIC# alien>string 1 ( c-ptr encoding -- string/f ) GENERIC# alien>string 1 ( c-ptr encoding -- string/f )

View File

@ -1,9 +1,7 @@
! Copyright (C) 2007, 2009 Slava Pestov. ! Copyright (C) 2007, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: namespaces math words kernel alien byte-arrays USING: alien arrays byte-arrays kernel layouts math namespaces
hashtables vectors strings sbufs arrays quotations strings words ;
quotations assocs layouts classes.tuple.private
kernel.private ;
16 data-alignment set 16 data-alignment set

View File

@ -1,7 +1,7 @@
! Copyright (C) 2007, 2009 Slava Pestov. ! Copyright (C) 2007, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel kernel.private alien.accessors sequences USING: accessors alien.accessors kernel math sequences
sequences.private math ; sequences.private ;
IN: byte-arrays IN: byte-arrays
M: byte-array clone (clone) ; inline M: byte-array clone (clone) ; inline

View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays kernel kernel.private math sequences USING: accessors byte-arrays growable kernel math sequences
sequences.private growable byte-arrays accessors ; sequences.private ;
IN: byte-vectors IN: byte-vectors
TUPLE: byte-vector TUPLE: byte-vector

View File

@ -1,8 +1,7 @@
! Copyright (C) 2006 Doug Coleman ! Copyright (C) 2006 Doug Coleman
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel math sequences sequences.private namespaces USING: checksums io.binary kernel math sequences
words io io.binary io.files quotations sequences.private ;
definitions checksums ;
IN: checksums.crc32 IN: checksums.crc32
CONSTANT: crc32-polynomial 0xedb88320 CONSTANT: crc32-polynomial 0xedb88320

View File

@ -1,7 +1,7 @@
! Copyright (C) 2007, 2010 Doug Coleman, Slava Pestov. ! Copyright (C) 2007, 2010 Doug Coleman, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors continuations kernel namespaces make USING: accessors assocs continuations init kernel make
sequences vectors sets assocs init math ; namespaces sequences sets ;
FROM: namespaces => set ; FROM: namespaces => set ;
IN: destructors IN: destructors

View File

@ -1,8 +1,7 @@
! Copyright (C) 2006, 2010 Slava Pestov. ! Copyright (C) 2006, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel math math.parser math.order namespaces make USING: accessors arrays classes combinators kernel make math
sequences strings words assocs combinators accessors arrays math.order math.parser sequences strings words ;
quotations classes.algebra classes ;
IN: effects IN: effects
TUPLE: effect TUPLE: effect

View File

@ -1,6 +1,6 @@
! Copyright (C) 2006, 2007 Slava Pestov. ! Copyright (C) 2006, 2007 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: assocs kernel namespaces sequences sets ; USING: assocs kernel sequences sets ;
IN: graphs IN: graphs
<PRIVATE <PRIVATE

View File

@ -1,7 +1,7 @@
! Copyright (C) 2005, 2009 Slava Pestov. ! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel kernel.private math math.private USING: accessors kernel math math.private sequences
sequences sequences.private ; sequences.private ;
IN: growable IN: growable
MIXIN: growable MIXIN: growable

View File

@ -1,8 +1,7 @@
! Copyright (C) 2010 Daniel Ehrenberg ! Copyright (C) 2010 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs hashtables kernel sets sets.private USING: accessors assocs hashtables kernel sequences sets
sequences parser ; sets.private ;
IN: hash-sets IN: hash-sets
! In a better implementation, less memory would be used ! In a better implementation, less memory would be used

View File

@ -1,7 +1,7 @@
! Copyright (C) 2005, 2011 John Benediktsson, Slava Pestov. ! Copyright (C) 2005, 2011 John Benediktsson, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays kernel kernel.private slots.private math USING: accessors arrays assocs kernel kernel.private math
assocs math.private sequences sequences.private vectors ; math.private sequences sequences.private slots.private vectors ;
IN: hashtables IN: hashtables
TUPLE: hashtable TUPLE: hashtable

View File

@ -1,7 +1,7 @@
! Copyright (C) 2004, 2009 Slava Pestov. ! Copyright (C) 2004, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: continuations continuations.private kernel USING: assocs continuations continuations.private kernel
kernel.private sequences assocs namespaces namespaces.private ; kernel.private namespaces ;
IN: init IN: init
SYMBOL: startup-hooks SYMBOL: startup-hooks

View File

@ -1,7 +1,7 @@
! Copyright (C) 2007, 2009 Slava Pestov. ! Copyright (C) 2007, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: init kernel system namespaces io io.encodings USING: assocs init io io.encodings io.encodings.utf8 kernel
io.encodings.utf8 assocs splitting alien ; namespaces system ;
IN: io.backend IN: io.backend
SYMBOL: io-backend SYMBOL: io-backend

View File

@ -1,8 +1,8 @@
! Copyright (C) 2004, 2009 Slava Pestov, Daniel Ehrenberg. ! Copyright (C) 2004, 2009 Slava Pestov, Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel kernel.private sequences init namespaces system io USING: alien.strings init io io.backend io.encodings
io.encodings.utf8 io.backend io.pathnames io.encodings io.files.private io.encodings.utf8 io.files.private io.pathnames kernel
alien.strings splitting ; kernel.private namespaces sequences splitting system ;
IN: io.files IN: io.files
MIXIN: file-reader MIXIN: file-reader

View File

@ -1,7 +1,7 @@
! Copyright (C) 2003, 2010 Slava Pestov. ! Copyright (C) 2003, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: combinators destructors kernel kernel.private math USING: destructors kernel kernel.private math namespaces
namespaces sequences sequences.private ; sequences sequences.private ;
IN: io IN: io
SYMBOLS: +byte+ +character+ ; SYMBOLS: +byte+ +character+ ;

View File

@ -1,8 +1,8 @@
! Copyright (C) 2008, 2009 Daniel Ehrenberg ! Copyright (C) 2008, 2009 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors byte-arrays byte-vectors destructors io USING: accessors byte-arrays byte-vectors destructors io
io.encodings io.private io.streams.sequence kernel namespaces io.encodings io.streams.sequence kernel namespaces sequences
sequences sequences.private ; sequences.private ;
IN: io.streams.byte-array IN: io.streams.byte-array
INSTANCE: byte-vector output-stream INSTANCE: byte-vector output-stream

View File

@ -1,9 +1,8 @@
! Copyright (C) 2004, 2010 Slava Pestov. ! Copyright (C) 2004, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien alien.strings kernel kernel.private namespaces make USING: accessors alien alien.strings byte-arrays destructors io
io io.encodings sequences math generic threads.private classes io.backend io.encodings.utf8 io.files kernel kernel.private
io.backend io.files io.encodings.utf8 continuations destructors make math sequences threads.private ;
byte-arrays accessors combinators ;
IN: io.streams.c IN: io.streams.c
TUPLE: c-stream < disposable handle ; TUPLE: c-stream < disposable handle ;

View File

@ -1,6 +1,6 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel accessors alien alien.accessors math io ; USING: accessors alien alien.accessors io kernel ;
IN: io.streams.memory IN: io.streams.memory
TUPLE: memory-stream alien ; TUPLE: memory-stream alien ;

View File

@ -1,7 +1,8 @@
! Copyright (C) 2009 Daniel Ehrenberg ! Copyright (C) 2009 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: sequences io io.streams.plain kernel accessors math math.order USING: accessors combinators destructors growable io io.private
growable destructors combinators sequences.private io.private ; io.streams.plain kernel math math.order sequences
sequences.private ;
IN: io.streams.sequence IN: io.streams.sequence
! Readers ! Readers

View File

@ -1,7 +1,6 @@
! Copyright (C) 2007, 2009 Slava Pestov. ! Copyright (C) 2007, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: namespaces math words kernel assocs classes USING: assocs kernel kernel.private math math.order namespaces ;
math.order kernel.private sequences sequences.private ;
IN: layouts IN: layouts
SYMBOL: data-alignment SYMBOL: data-alignment

View File

@ -1,8 +1,8 @@
! Copyright (C) 2008, 2010 Slava Pestov, Joe Groff. ! Copyright (C) 2008, 2010 Slava Pestov, Joe Groff.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel sequences accessors namespaces math words strings USING: accessors arrays combinators continuations io kernel
io vectors arrays math.parser combinators continuations math math.parser namespaces sequences source-files.errors
source-files.errors ; strings vectors ;
IN: lexer IN: lexer
TUPLE: lexer TUPLE: lexer

View File

@ -1,8 +1,8 @@
! Copyright (C) 2004, 2010 Slava Pestov. ! Copyright (C) 2004, 2010 Slava Pestov.
! 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: kernel kernel.private sequences sequences.private math USING: combinators kernel kernel.private math math.order
math.private math.order combinators ; math.private ;
IN: math.integers.private IN: math.integers.private
: fixnum-min ( x y -- z ) [ fixnum< ] most ; foldable : fixnum-min ( x y -- z ) [ fixnum< ] most ; foldable

View File

@ -1,11 +1,10 @@
! Copyright (C) 2005, 2010 Slava Pestov. ! Copyright (C) 2005, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays definitions generic assocs kernel math namespaces USING: accessors arrays assocs classes combinators
sequences strings vectors words words.symbol quotations io compiler.units continuations definitions effects io
combinators sorting splitting math.parser effects continuations io.encodings.utf8 io.files kernel lexer math.parser namespaces
io.files vocabs io.encodings.utf8 source-files classes parser.notes quotations sequences slots source-files vectors
hashtables compiler.units accessors sets lexer vocabs.parser vocabs vocabs.parser words words.symbol ;
slots parser.notes classes.algebra ;
IN: parser IN: parser
: location ( -- loc ) : location ( -- loc )

View File

@ -1,8 +1,7 @@
! Copyright (C) 2006, 2008 Slava Pestov. ! Copyright (C) 2006, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays sequences sequences.private USING: accessors arrays kernel kernel.private math sequences
kernel kernel.private math assocs quotations.private sequences.private slots.private ;
slots.private ;
IN: quotations IN: quotations
<PRIVATE <PRIVATE

View File

@ -1,7 +1,7 @@
! Copyright (C) 2004, 2008 Slava Pestov. ! Copyright (C) 2004, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel math sequences.private sequences USING: accessors growable kernel math sequences
strings growable strings.private ; sequences.private strings strings.private ;
IN: sbufs IN: sbufs
TUPLE: sbuf TUPLE: sbuf

View File

@ -1,7 +1,7 @@
! Copyright (C) 2005, 2009 Slava Pestov. ! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs kernel math vectors math.order USING: accessors arrays assocs kernel math math.order sequences
sequences sequences.private ; sequences.private vectors ;
IN: sorting IN: sorting
! Optimized merge-sort: ! Optimized merge-sort:

View File

@ -1,7 +1,7 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs kernel math.order sorting sequences definitions USING: accessors assocs continuations definitions init io
namespaces arrays splitting io math.parser math init continuations ; kernel math math.parser namespaces sequences sorting ;
IN: source-files.errors IN: source-files.errors
GENERIC: error-file ( error -- file ) GENERIC: error-file ( error -- file )

View File

@ -1,10 +1,9 @@
! Copyright (C) 2007, 2009 Slava Pestov. ! Copyright (C) 2007, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays definitions generic assocs kernel math namespaces USING: accessors arrays assocs checksums checksums.crc32
sequences strings vectors words quotations io io.files compiler.units continuations definitions io.encodings.utf8
io.pathnames combinators sorting splitting math.parser effects io.files io.pathnames kernel namespaces sequences
continuations checksums checksums.crc32 vocabs hashtables source-files.errors strings words ;
compiler.units io.encodings.utf8 accessors source-files.errors ;
IN: source-files IN: source-files
SYMBOL: source-files SYMBOL: source-files

View File

@ -1,6 +1,6 @@
! Copyright (C) 2005, 2009 Slava Pestov. ! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays kernel make math sequences sets strings ; USING: arrays kernel make math sequences strings ;
IN: splitting IN: splitting
<PRIVATE <PRIVATE

View File

@ -1,8 +1,7 @@
! Copyright (C) 2008, 2009 Slava Pestov, Doug Coleman. ! Copyright (C) 2008, 2009 Slava Pestov, Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs combinators kernel lexer make USING: accessors arrays assocs combinators kernel lexer make
math math.order math.parser namespaces parser sequences math math.parser namespaces sequences splitting strings ;
splitting strings ;
IN: strings.parser IN: strings.parser
ERROR: bad-escape char ; ERROR: bad-escape char ;

View File

@ -1,7 +1,8 @@
! Copyright (C) 2003, 2010 Slava Pestov. ! Copyright (C) 2003, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.accessors byte-arrays kernel math.private USING: accessors alien.accessors byte-arrays kernel
sequences kernel.private math sequences.private slots.private ; kernel.private math math.private sequences sequences.private
slots.private ;
IN: strings IN: strings
<PRIVATE <PRIVATE

View File

@ -1,15 +1,15 @@
! Copyright (C) 2004, 2010 Slava Pestov. ! Copyright (C) 2004, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien arrays byte-arrays byte-vectors definitions generic USING: accessors arrays byte-arrays byte-vectors
hashtables kernel math namespaces parser lexer sequences strings classes.algebra.private classes.intersection classes.maybe
strings.parser sbufs vectors words words.symbol words.constant classes.mixin classes.parser classes.predicate
words.alias quotations io assocs splitting classes.tuple classes.singleton classes.tuple classes.tuple.parser
generic.standard generic.hook generic.math generic.parser classes classes.union combinators compiler.units definitions
io.pathnames vocabs vocabs.parser classes.parser classes.union effects.parser generic generic.hook generic.math generic.parser
classes.intersection classes.mixin classes.predicate generic.standard hash-sets hashtables io.pathnames kernel lexer
classes.singleton classes.tuple.parser compiler.units classes.maybe math namespaces parser quotations sbufs sequences slots
combinators effects.parser slots hash-sets source-files source-files splitting strings strings.parser vectors
classes.algebra.private ; vocabs.parser words words.alias words.constant words.symbol ;
IN: bootstrap.syntax IN: bootstrap.syntax
! These words are defined as a top-level form, instead of with ! These words are defined as a top-level form, instead of with

View File

@ -1,7 +1,7 @@
! Copyright (C) 2004, 2008 Slava Pestov. ! Copyright (C) 2004, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays kernel math sequences sequences.private growable USING: accessors arrays growable kernel math sequences
accessors ; sequences.private ;
IN: vectors IN: vectors
TUPLE: vector TUPLE: vector

View File

@ -1,10 +1,9 @@
! Copyright (C) 2007, 2010 Daniel Ehrenberg, Bruno Deferrari, ! Copyright (C) 2007, 2010 Daniel Ehrenberg, Bruno Deferrari,
! Slava Pestov. ! Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: assocs hashtables kernel namespaces sequences USING: accessors arrays assocs combinators compiler.units
sets strings vocabs sorting accessors arrays compiler.units continuations hashtables kernel math namespaces parser.notes
combinators vectors splitting continuations math words sequences sets sorting splitting vectors vocabs words ;
parser.notes ;
IN: vocabs.parser IN: vocabs.parser
ERROR: no-word-error name ; ERROR: no-word-error name ;

View File

@ -1,7 +1,7 @@
! Copyright (C) 2007, 2009 Eduardo Cavazos, Slava Pestov. ! Copyright (C) 2007, 2009 Eduardo Cavazos, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs definitions kernel namespaces sequences USING: accessors assocs definitions kernel namespaces sequences
sets sorting splitting strings ; sorting splitting strings ;
IN: vocabs IN: vocabs
SYMBOL: dictionary SYMBOL: dictionary

View File

@ -1,6 +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: quotations effects accessors sequences words kernel definitions ; USING: accessors definitions effects kernel quotations
sequences words ;
IN: words.alias IN: words.alias
PREDICATE: alias < word "alias" word-prop ; PREDICATE: alias < word "alias" word-prop ;

View File

@ -1,6 +1,6 @@
! Copyright (C) 2008, 2009 Slava Pestov. ! Copyright (C) 2008, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel sequences words definitions quotations ; USING: definitions kernel quotations words ;
IN: words.constant IN: words.constant
PREDICATE: constant < word "constant" word-prop >boolean ; PREDICATE: constant < word "constant" word-prop >boolean ;

View File

@ -1,6 +1,6 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel sequences accessors definitions words ; USING: accessors definitions kernel sequences words ;
IN: words.symbol IN: words.symbol
PREDICATE: symbol < word PREDICATE: symbol < word

View File

@ -1,9 +1,8 @@
! Copyright (C) 2004, 2010 Slava Pestov. ! Copyright (C) 2004, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays definitions kernel kernel.private USING: accessors arrays assocs definitions hashtables kernel
slots.private math namespaces sequences strings vectors sbufs kernel.private math math.order namespaces quotations sequences
quotations assocs hashtables sorting vocabs math.order sets slots.private strings vocabs ;
words.private ;
FROM: assocs => change-at ; FROM: assocs => change-at ;
IN: words IN: words