steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

factor: don't need FROM: namespaces => set or namespaces:set anymore

db4
Doug Coleman 2015-08-12 11:24:26 -05:00
parent 46587f8457
commit e0d1b14e5c
64 changed files with 17 additions and 81 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
basis/compiler/cfg/alias-analysis/alias-analysis.factor
View File

@ -5,7 +5,6 @@ compiler.cfg.comparisons compiler.cfg.instructions
compiler.cfg.representations.preferred compiler.cfg.rpo compiler.cfg.representations.preferred compiler.cfg.rpo
compiler.cfg.utilities cpu.architecture fry kernel locals math compiler.cfg.utilities cpu.architecture fry kernel locals math
namespaces sequences sets ; namespaces sequences sets ;
QUALIFIED: namespaces
IN: compiler.cfg.alias-analysis IN: compiler.cfg.alias-analysis
! Local copy propagation ! Local copy propagation
@ -126,13 +125,13 @@ SYMBOL: ac-counter
] [ vreg kill-computed-set-slot ] if ; ] [ vreg kill-computed-set-slot ] if ;
: init-alias-analysis ( -- ) : init-alias-analysis ( -- )
H{ } clone vregs>acs namespaces:set H{ } clone vregs>acs set
H{ } clone acs>vregs namespaces:set H{ } clone acs>vregs set
H{ } clone live-slots namespaces:set H{ } clone live-slots set
H{ } clone copies namespaces:set H{ } clone copies set
H{ } clone recent-stores namespaces:set H{ } clone recent-stores set
HS{ } clone dead-stores namespaces:set HS{ } clone dead-stores set
0 ac-counter namespaces:set ; 0 ac-counter set ;
GENERIC: insn-slot# ( insn -- slot#/f ) GENERIC: insn-slot# ( insn -- slot#/f )
GENERIC: insn-object ( insn -- vreg ) GENERIC: insn-object ( insn -- vreg )
@ -256,7 +255,7 @@ M: insn eliminate-dead-stores drop t ;
copies get clear-assoc copies get clear-assoc
dead-stores get clear-set dead-stores get clear-set
next-ac heap-ac namespaces:set next-ac heap-ac set
##vm-field set-new-ac ##vm-field set-new-ac
##alien-global set-new-ac ; ##alien-global set-new-ac ;

5
basis/compiler/cfg/branch-splitting/branch-splitting.factor
View File

@ -5,7 +5,6 @@ compiler.cfg compiler.cfg.instructions compiler.cfg.predecessors
compiler.cfg.renaming compiler.cfg.rpo compiler.cfg.utilities compiler.cfg.renaming compiler.cfg.rpo compiler.cfg.utilities
deques dlists fry kernel locals math namespaces sequences sets deques dlists fry kernel locals math namespaces sequences sets
vectors ; vectors ;
QUALIFIED: namespaces
IN: compiler.cfg.branch-splitting IN: compiler.cfg.branch-splitting
: clone-instructions ( insns -- insns' ) : clone-instructions ( insns -- insns' )
@ -86,8 +85,8 @@ SYMBOL: visited
[ worklist get push-front ] [ drop ] if ; [ worklist get push-front ] [ drop ] if ;
: init-worklist ( cfg -- ) : init-worklist ( cfg -- )
<dlist> worklist namespaces:set <dlist> worklist set
HS{ } clone visited namespaces:set HS{ } clone visited set
entry>> add-to-worklist ; entry>> add-to-worklist ;
: split-branches ( cfg -- ) : split-branches ( cfg -- )

1
basis/compiler/cfg/copy-prop/copy-prop.factor
View File

@ -4,7 +4,6 @@ USING: accessors assocs compiler.cfg.def-use
compiler.cfg.instructions compiler.cfg.predecessors compiler.cfg.instructions compiler.cfg.predecessors
compiler.cfg.renaming compiler.cfg.rpo compiler.cfg.utilities compiler.cfg.renaming compiler.cfg.rpo compiler.cfg.utilities
fry grouping kernel namespaces sequences ; fry grouping kernel namespaces sequences ;
FROM: namespaces => set ;
IN: compiler.cfg.copy-prop IN: compiler.cfg.copy-prop
<PRIVATE <PRIVATE

1
basis/compiler/cfg/dce/dce.factor
View File

@ -3,7 +3,6 @@
USING: accessors arrays assocs combinators compiler.cfg.def-use USING: accessors arrays assocs combinators compiler.cfg.def-use
compiler.cfg.instructions compiler.cfg.predecessors compiler.cfg.instructions compiler.cfg.predecessors
compiler.cfg.rpo kernel namespaces sequences sets ; compiler.cfg.rpo kernel namespaces sequences sets ;
FROM: namespaces => set ;
IN: compiler.cfg.dce IN: compiler.cfg.dce
! Maps vregs to sequences of vregs ! Maps vregs to sequences of vregs

1
basis/compiler/cfg/def-use/def-use.factor
View File

@ -4,7 +4,6 @@ USING: accessors arrays assocs combinators compiler.cfg
compiler.cfg.instructions compiler.cfg.instructions.syntax compiler.cfg.instructions compiler.cfg.instructions.syntax
compiler.cfg.rpo compiler.units fry generic kernel namespaces compiler.cfg.rpo compiler.units fry generic kernel namespaces
quotations sequences sequences.generalizations sets slots words ; quotations sequences sequences.generalizations sets slots words ;
FROM: namespaces => set ;
IN: compiler.cfg.def-use IN: compiler.cfg.def-use
! Utilities for iterating over instruction operands ! Utilities for iterating over instruction operands

1
basis/compiler/cfg/dominance/dominance.factor
View File

@ -3,7 +3,6 @@
USING: accessors assocs combinators compiler.cfg.predecessors USING: accessors assocs combinators compiler.cfg.predecessors
compiler.cfg.rpo deques dlists fry kernel locals math math.order compiler.cfg.rpo deques dlists fry kernel locals math math.order
namespaces sequences sorting vectors ; namespaces sequences sorting vectors ;
FROM: namespaces => set ;
IN: compiler.cfg.dominance IN: compiler.cfg.dominance
<PRIVATE <PRIVATE

1
basis/compiler/cfg/linear-scan/assignment/assignment.factor
View File

@ -6,7 +6,6 @@ compiler.cfg.instructions compiler.cfg.linear-scan.allocation.state
compiler.cfg.linear-scan.live-intervals compiler.cfg.renaming.functor compiler.cfg.linear-scan.live-intervals compiler.cfg.renaming.functor
compiler.cfg.ssa.destruction.leaders cpu.architecture compiler.cfg.ssa.destruction.leaders cpu.architecture
fry heaps kernel make math namespaces sequences sets ; fry heaps kernel make math namespaces sequences sets ;
FROM: namespaces => set ;
IN: compiler.cfg.linear-scan.assignment IN: compiler.cfg.linear-scan.assignment
! This contains both active and inactive intervals; any interval ! This contains both active and inactive intervals; any interval

1
basis/compiler/cfg/linear-scan/linear-scan-tests.factor
View File

@ -21,7 +21,6 @@ compiler.cfg.linear-scan.allocation.splitting
compiler.cfg.linear-scan.allocation.spilling compiler.cfg.linear-scan.allocation.spilling
compiler.cfg.linear-scan.debugger compiler.cfg.linear-scan.debugger
compiler.cfg.utilities ; compiler.cfg.utilities ;
FROM: namespaces => set ;
IN: compiler.cfg.linear-scan.tests IN: compiler.cfg.linear-scan.tests
check-allocation? on check-allocation? on

1
basis/compiler/cfg/linearization/linearization.factor
View File

@ -4,7 +4,6 @@ USING: accessors assocs combinators combinators.short-circuit
compiler.cfg.loop-detection compiler.cfg.predecessors compiler.cfg.loop-detection compiler.cfg.predecessors
compiler.cfg.rpo compiler.cfg.utilities deques dlists fry kernel compiler.cfg.rpo compiler.cfg.utilities deques dlists fry kernel
make math namespaces sequences sets sorting ; make math namespaces sequences sets sorting ;
FROM: namespaces => set ;
IN: compiler.cfg.linearization IN: compiler.cfg.linearization
! This is RPO except loops are rotated and unlikely blocks go ! This is RPO except loops are rotated and unlikely blocks go

1
basis/compiler/cfg/liveness/liveness.factor
View File

@ -6,7 +6,6 @@ compiler.cfg.registers compiler.cfg.rpo
compiler.cfg.ssa.destruction.leaders compiler.cfg.utilities compiler.cfg.ssa.destruction.leaders compiler.cfg.utilities
cpu.architecture deques dlists fry kernel locals namespaces cpu.architecture deques dlists fry kernel locals namespaces
sequences sets ; sequences sets ;
FROM: namespaces => set ;
IN: compiler.cfg.liveness IN: compiler.cfg.liveness
SYMBOL: live-ins SYMBOL: live-ins

1
basis/compiler/cfg/loop-detection/loop-detection.factor
View File

@ -3,7 +3,6 @@
USING: accessors assocs combinators.short-circuit compiler.cfg USING: accessors assocs combinators.short-circuit compiler.cfg
compiler.cfg.predecessors compiler.cfg.utilities deques dlists fry kernel compiler.cfg.predecessors compiler.cfg.utilities deques dlists fry kernel
namespaces sequences sets ; namespaces sequences sets ;
FROM: namespaces => set ;
IN: compiler.cfg.loop-detection IN: compiler.cfg.loop-detection
TUPLE: natural-loop header index ends blocks ; TUPLE: natural-loop header index ends blocks ;

1
basis/compiler/cfg/representations/preferred/preferred.factor
View File

@ -6,7 +6,6 @@ generic kernel namespaces sequences sequences.generalizations
sets words ; sets words ;
FROM: compiler.cfg.instructions.syntax => insn-def-slots FROM: compiler.cfg.instructions.syntax => insn-def-slots
insn-use-slots insn-temp-slots scalar-rep ; insn-use-slots insn-temp-slots scalar-rep ;
FROM: namespaces => set ;
IN: compiler.cfg.representations.preferred IN: compiler.cfg.representations.preferred
GENERIC: defs-vreg-reps ( insn -- reps ) GENERIC: defs-vreg-reps ( insn -- reps )

1
basis/compiler/cfg/representations/selection/selection.factor
View File

@ -8,7 +8,6 @@ compiler.cfg.representations.preferred compiler.cfg.rpo
compiler.cfg.utilities compiler.utilities cpu.architecture compiler.cfg.utilities compiler.utilities cpu.architecture
disjoint-sets fry kernel locals math math.functions namespaces disjoint-sets fry kernel locals math math.functions namespaces
sequences sets ; sequences sets ;
FROM: namespaces => set ;
IN: compiler.cfg.representations.selection IN: compiler.cfg.representations.selection
SYMBOL: tagged-vregs SYMBOL: tagged-vregs

4
basis/compiler/cfg/rpo/rpo.factor
View File

@ -1,7 +1,7 @@
! 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 compiler.cfg fry kernel make sequences sets ; USING: accessors compiler.cfg fry kernel make namespaces
FROM: namespaces => set ; sequences sets ;
IN: compiler.cfg.rpo IN: compiler.cfg.rpo
: post-order-traversal ( visited bb -- visited ) : post-order-traversal ( visited bb -- visited )

5
basis/compiler/cfg/ssa/construction/construction.factor
View File

@ -4,9 +4,8 @@ USING: accessors assocs combinators compiler.cfg
compiler.cfg.def-use compiler.cfg.dominance compiler.cfg.def-use compiler.cfg.dominance
compiler.cfg.instructions compiler.cfg.registers compiler.cfg.instructions compiler.cfg.registers
compiler.cfg.renaming.functor compiler.cfg.rpo compiler.cfg.renaming.functor compiler.cfg.rpo
compiler.cfg.ssa.construction.tdmsc compiler.cfg.utilities deques dlists fry compiler.cfg.ssa.construction.tdmsc deques dlists fry kernel
kernel math sequences sets ; math namespaces sequences sets ;
FROM: namespaces => set get ;
IN: compiler.cfg.ssa.construction IN: compiler.cfg.ssa.construction
<PRIVATE <PRIVATE

6
basis/compiler/cfg/ssa/construction/tdmsc/tdmsc-tests.factor
View File

@ -1,8 +1,6 @@
USING: accessors arrays compiler.cfg compiler.cfg.debugger USING: accessors arrays compiler.cfg compiler.cfg.debugger
compiler.cfg.dominance compiler.cfg.predecessors compiler.cfg.ssa.construction.tdmsc compiler.cfg.utilities
compiler.cfg.ssa.construction.tdmsc compiler.cfg.utilities kernel namespaces kernel namespaces sequences sets tools.test ;
sequences sets tools.test vectors ;
FROM: namespaces => set ;
IN: compiler.cfg.ssa.construction.tdmsc.tests IN: compiler.cfg.ssa.construction.tdmsc.tests
: test-tdmsc ( -- ) : test-tdmsc ( -- )

1
basis/compiler/cfg/ssa/construction/tdmsc/tdmsc.factor
View File

@ -3,7 +3,6 @@
USING: accessors arrays assocs bit-sets compiler.cfg USING: accessors arrays assocs bit-sets compiler.cfg
compiler.cfg.dominance compiler.cfg.rpo compiler.cfg.utilities compiler.cfg.dominance compiler.cfg.rpo compiler.cfg.utilities
fry hashtables kernel locals math namespaces sequences sets ; fry hashtables kernel locals math namespaces sequences sets ;
FROM: namespaces => set ;
IN: compiler.cfg.ssa.construction.tdmsc IN: compiler.cfg.ssa.construction.tdmsc
! TDMSC-I algorithm from "A Practical and Fast Iterative Algorithm for ! TDMSC-I algorithm from "A Practical and Fast Iterative Algorithm for

1
basis/compiler/cfg/ssa/destruction/coalescing/coalescing.factor
View File

@ -3,7 +3,6 @@ compiler.cfg.instructions compiler.cfg.linearization
compiler.cfg.registers compiler.cfg.ssa.destruction.leaders compiler.cfg.registers compiler.cfg.ssa.destruction.leaders
compiler.cfg.ssa.interference cpu.architecture fry kernel make compiler.cfg.ssa.interference cpu.architecture fry kernel make
namespaces sequences sets sorting ; namespaces sequences sets sorting ;
FROM: namespaces => set ;
IN: compiler.cfg.ssa.destruction.coalescing IN: compiler.cfg.ssa.destruction.coalescing
: zip-scalar ( scalar seq -- pairs ) : zip-scalar ( scalar seq -- pairs )

3
basis/compiler/cfg/ssa/destruction/destruction.factor
View File

@ -5,8 +5,7 @@ compiler.cfg.instructions compiler.cfg.liveness
compiler.cfg.parallel-copy compiler.cfg.rpo compiler.cfg.ssa.cssa compiler.cfg.parallel-copy compiler.cfg.rpo compiler.cfg.ssa.cssa
compiler.cfg.ssa.destruction.coalescing compiler.cfg.ssa.destruction.leaders compiler.cfg.ssa.destruction.coalescing compiler.cfg.ssa.destruction.leaders
compiler.cfg.ssa.interference.live-ranges compiler.cfg.utilities compiler.cfg.ssa.interference.live-ranges compiler.cfg.utilities
kernel make sequences ; kernel make sequences namespaces ;
FROM: namespaces => set ;
IN: compiler.cfg.ssa.destruction IN: compiler.cfg.ssa.destruction
<PRIVATE <PRIVATE

1
basis/compiler/cfg/stacks/local/local.factor
View File

@ -4,7 +4,6 @@ USING: accessors arrays assocs combinators compiler.cfg
compiler.cfg.instructions compiler.cfg.parallel-copy compiler.cfg.instructions compiler.cfg.parallel-copy
compiler.cfg.registers compiler.cfg.stacks.height compiler.cfg.registers compiler.cfg.stacks.height
fry hash-sets kernel make math math.order namespaces sequences sets ; fry hash-sets kernel make math math.order namespaces sequences sets ;
FROM: namespaces => set ;
IN: compiler.cfg.stacks.local IN: compiler.cfg.stacks.local
: current-height ( state -- ds rs ) : current-height ( state -- ds rs )

1
basis/compiler/cfg/write-barrier/write-barrier.factor
View File

@ -3,7 +3,6 @@
USING: accessors assocs combinators.short-circuit USING: accessors assocs combinators.short-circuit
compiler.cfg.instructions compiler.cfg.rpo kernel namespaces compiler.cfg.instructions compiler.cfg.rpo kernel namespaces
sequences sets ; sequences sets ;
FROM: namespaces => set ;
IN: compiler.cfg.write-barrier IN: compiler.cfg.write-barrier
! This pass must run after GC check insertion and scheduling. ! This pass must run after GC check insertion and scheduling.

1
basis/compiler/codegen/codegen.factor
View File

@ -8,7 +8,6 @@ compiler.codegen.relocation compiler.constants cpu.architecture
fry generic.parser kernel layouts locals make math namespaces fry generic.parser kernel layouts locals make math namespaces
parser quotations sequences sequences.generalizations slots parser quotations sequences sequences.generalizations slots
words ; words ;
FROM: namespaces => set ;
IN: compiler.codegen IN: compiler.codegen
SYMBOL: insn-counts SYMBOL: insn-counts

1
basis/compiler/tree/checker/checker.factor
View File

@ -4,7 +4,6 @@ USING: accessors arrays assocs columns combinators compiler.tree
compiler.tree.combinators compiler.tree.def-use compiler.tree.combinators compiler.tree.def-use
compiler.tree.recursive continuations grouping kernel math compiler.tree.recursive continuations grouping kernel math
namespaces sequences sets vectors ; namespaces sequences sets vectors ;
FROM: namespaces => set ;
IN: compiler.tree.checker IN: compiler.tree.checker
! Check some invariants; this can help catch compiler bugs. ! Check some invariants; this can help catch compiler bugs.

1
basis/compiler/tree/dead-code/branches/branches.factor
View File

@ -4,7 +4,6 @@ USING: accessors assocs columns combinators compiler.tree
compiler.tree.dead-code.liveness compiler.tree.dead-code.simple compiler.tree.dead-code.liveness compiler.tree.dead-code.simple
fry kernel namespaces sequences stack-checker.backend fry kernel namespaces sequences stack-checker.backend
stack-checker.branches ; stack-checker.branches ;
FROM: namespaces => set ;
IN: compiler.tree.dead-code.branches IN: compiler.tree.dead-code.branches
M: #if mark-live-values* look-at-inputs ; M: #if mark-live-values* look-at-inputs ;

1
basis/compiler/tree/dead-code/liveness/liveness.factor
View File

@ -3,7 +3,6 @@
USING: accessors assocs compiler.tree compiler.tree.combinators USING: accessors assocs compiler.tree compiler.tree.combinators
compiler.tree.def-use compiler.utilities deques dlists kernel compiler.tree.def-use compiler.utilities deques dlists kernel
namespaces sets stack-checker.branches ; namespaces sets stack-checker.branches ;
FROM: namespaces => set ;
IN: compiler.tree.dead-code.liveness IN: compiler.tree.dead-code.liveness
SYMBOL: work-list SYMBOL: work-list

1
basis/compiler/tree/debugger/debugger.factor
View File

@ -14,7 +14,6 @@ prettyprint prettyprint.config prettyprint.custom
prettyprint.sections quotations sequences sequences.private sets prettyprint.sections quotations sequences sequences.private sets
sorting words ; sorting words ;
FROM: fry => _ ; FROM: fry => _ ;
FROM: namespaces => set ;
RENAME: _ match => __ RENAME: _ match => __
IN: compiler.tree.debugger IN: compiler.tree.debugger

1
basis/compiler/tree/def-use/def-use.factor
View File

@ -2,7 +2,6 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs compiler.tree compiler.tree.combinators USING: accessors assocs compiler.tree compiler.tree.combinators
fry kernel namespaces sequences stack-checker.branches ; fry kernel namespaces sequences stack-checker.branches ;
FROM: namespaces => set ;
QUALIFIED: sets QUALIFIED: sets
IN: compiler.tree.def-use IN: compiler.tree.def-use

1
basis/compiler/tree/def-use/simplified/simplified.factor
View File

@ -2,7 +2,6 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors compiler.tree compiler.tree.def-use kernel USING: accessors compiler.tree compiler.tree.def-use kernel
namespaces sequences sets stack-checker.branches ; namespaces sequences sets stack-checker.branches ;
FROM: namespaces => set ;
IN: compiler.tree.def-use.simplified IN: compiler.tree.def-use.simplified
! Simplified def-use follows chains of copies. ! Simplified def-use follows chains of copies.

1
basis/compiler/tree/escape-analysis/allocations/allocations.factor
View File

@ -2,7 +2,6 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs combinators disjoint-sets fry kernel USING: accessors assocs combinators disjoint-sets fry kernel
namespaces sequences stack-checker.values ; namespaces sequences stack-checker.values ;
FROM: namespaces => set ;
IN: compiler.tree.escape-analysis.allocations IN: compiler.tree.escape-analysis.allocations
SYMBOL: value-classes SYMBOL: value-classes

1
basis/compiler/tree/modular-arithmetic/modular-arithmetic.factor
View File

@ -6,7 +6,6 @@ compiler.tree.combinators compiler.tree.def-use.simplified
compiler.tree.late-optimizations compiler.tree.propagation.info compiler.tree.late-optimizations compiler.tree.propagation.info
fry kernel layouts math math.intervals math.partial-dispatch fry kernel layouts math math.intervals math.partial-dispatch
math.private memoize namespaces sequences sets words ; math.private memoize namespaces sequences sets words ;
FROM: namespaces => set ;
IN: compiler.tree.modular-arithmetic IN: compiler.tree.modular-arithmetic
! This is a late-stage optimization. ! This is a late-stage optimization.

1
basis/compiler/tree/recursive/recursive.factor
View File

@ -2,7 +2,6 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors combinators.short-circuit compiler.tree fry USING: accessors combinators.short-circuit compiler.tree fry
kernel namespaces sequences sets ; kernel namespaces sequences sets ;
FROM: namespaces => set ;
IN: compiler.tree.recursive IN: compiler.tree.recursive
TUPLE: call-site tail? node label ; TUPLE: call-site tail? node label ;

1
basis/farkup/farkup.factor
View File

@ -4,7 +4,6 @@ USING: sequences kernel splitting lists fry accessors assocs math.order
math combinators namespaces urls.encoding xml.syntax xmode.code2html math combinators namespaces urls.encoding xml.syntax xmode.code2html
xml.data arrays strings vectors xml.writer io.streams.string locals xml.data arrays strings vectors xml.writer io.streams.string locals
unicode.categories ; unicode.categories ;
FROM: namespaces => set ;
IN: farkup IN: farkup
SYMBOL: relative-link-prefix SYMBOL: relative-link-prefix

1
basis/furnace/auth/auth.factor
View File

@ -14,7 +14,6 @@ furnace.redirection
furnace.boilerplate furnace.boilerplate
furnace.auth.providers furnace.auth.providers
furnace.auth.providers.db ; furnace.auth.providers.db ;
FROM: namespaces => set ;
IN: furnace.auth IN: furnace.auth
SYMBOL: logged-in-user SYMBOL: logged-in-user

1
basis/help/markup/markup-tests.factor
View File

@ -1,7 +1,6 @@
USING: accessors arrays assocs definitions fry generic help USING: accessors arrays assocs definitions fry generic help
help.markup io.streams.string kernel math namespaces parser help.markup io.streams.string kernel math namespaces parser
sequences sets strings tools.test words ; sequences sets strings tools.test words ;
FROM: namespaces => set ;
IN: help.markup.tests IN: help.markup.tests
: with-markup-test ( quot -- ) : with-markup-test ( quot -- )

1
basis/help/markup/markup.factor
View File

@ -9,7 +9,6 @@ quotations see sequences sequences.private sets slots sorting
splitting strings urls vectors vocabs vocabs.loader words splitting strings urls vectors vocabs vocabs.loader words
words.symbol ; words.symbol ;
FROM: prettyprint.sections => with-pprint ; FROM: prettyprint.sections => with-pprint ;
FROM: namespaces => set ;
IN: help.markup IN: help.markup
PREDICATE: simple-element < array PREDICATE: simple-element < array

1
basis/inspector/inspector.factor
View File

@ -4,7 +4,6 @@ USING: accessors assocs continuations debugger fry hashtables io
io.styles kernel math mirrors namespaces prettyprint io.styles kernel math mirrors namespaces prettyprint
prettyprint.custom prettyprint.sections sequences sets sorting prettyprint.custom prettyprint.sections sequences sets sorting
summary ; summary ;
FROM: namespaces => set ;
IN: inspector IN: inspector
SYMBOL: +number-rows+ SYMBOL: +number-rows+

1
basis/io/monitors/linux/linux.factor
View File

@ -6,7 +6,6 @@ io.backend.unix io.encodings.utf8 unix.linux.inotify assocs
namespaces make threads continuations init libc math math.bitwise namespaces make threads continuations init libc math math.bitwise
sets alien alien.strings alien.c-types vocabs.loader accessors sets alien alien.strings alien.c-types vocabs.loader accessors
system hashtables destructors unix classes.struct literals ; system hashtables destructors unix classes.struct literals ;
FROM: namespaces => set ;
IN: io.monitors.linux IN: io.monitors.linux
SYMBOL: watches SYMBOL: watches

1
basis/io/servers/servers.factor
View File

@ -7,7 +7,6 @@ concurrency.semaphores continuations debugger destructors fry
io io.sockets io.sockets.secure io.streams.duplex io.styles io io.sockets io.sockets.secure io.streams.duplex io.styles
io.timeouts kernel logging make math math.parser namespaces io.timeouts kernel logging make math math.parser namespaces
present prettyprint random sequences sets strings threads ; present prettyprint random sequences sets strings threads ;
FROM: namespaces => set ;
IN: io.servers IN: io.servers
TUPLE: threaded-server < identity-tuple TUPLE: threaded-server < identity-tuple

1
basis/peg/peg.factor
View File

@ -5,7 +5,6 @@ combinators.short-circuit compiler.units effects.parser fry
generalizations kernel locals make math math.order namespaces generalizations kernel locals make math math.order namespaces
quotations sequences sets splitting unicode.categories vectors quotations sequences sets splitting unicode.categories vectors
words ; words ;
FROM: namespaces => set ;
IN: peg IN: peg
TUPLE: parse-result remaining ast ; TUPLE: parse-result remaining ast ;

1
basis/prettyprint/sections/sections.factor
View File

@ -4,7 +4,6 @@ USING: accessors classes.maybe combinators
combinators.short-circuit continuations hashtables io io.styles combinators.short-circuit continuations hashtables io io.styles
kernel make math namespaces prettyprint.config sequences sets kernel make math namespaces prettyprint.config sequences sets
splitting strings vocabs vocabs.parser words ; splitting strings vocabs vocabs.parser words ;
FROM: namespaces => set ;
IN: prettyprint.sections IN: prettyprint.sections
! State ! State

1
basis/regexp/nfa/nfa.factor
View File

@ -5,7 +5,6 @@ sequences fry quotations math.order math.ranges vectors
unicode.categories regexp.transition-tables words sets hashtables unicode.categories regexp.transition-tables words sets hashtables
combinators.short-circuit unicode.data regexp.ast combinators.short-circuit unicode.data regexp.ast
regexp.classes memoize ; regexp.classes memoize ;
FROM: namespaces => set ;
IN: regexp.nfa IN: regexp.nfa
! This uses unicode.data for ch>upper and ch>lower ! This uses unicode.data for ch>upper and ch>lower

1
basis/see/see.factor
View File

@ -8,7 +8,6 @@ io.streams.string io.styles kernel make namespaces prettyprint
prettyprint.backend prettyprint.config prettyprint.custom prettyprint.backend prettyprint.config prettyprint.custom
prettyprint.sections sequences sets slots sorting strings summary prettyprint.sections sequences sets slots sorting strings summary
words words.symbol words.constant words.alias vocabs ; words words.symbol words.constant words.alias vocabs ;
FROM: namespaces => set ;
IN: see IN: see
GENERIC: synopsis* ( defspec -- ) GENERIC: synopsis* ( defspec -- )

1
basis/stack-checker/backend/backend.factor
View File

@ -6,7 +6,6 @@ stack-checker.dependencies stack-checker.errors
stack-checker.recursive-state stack-checker.state stack-checker.recursive-state stack-checker.state
stack-checker.values stack-checker.visitor words ; stack-checker.values stack-checker.visitor words ;
FROM: sequences.private => from-end ; FROM: sequences.private => from-end ;
FROM: namespaces => set ;
IN: stack-checker.backend IN: stack-checker.backend
: push-d ( obj -- ) meta-d push ; : push-d ( obj -- ) meta-d push ;

1
basis/stack-checker/dependencies/dependencies.factor
View File

@ -4,7 +4,6 @@ USING: accessors alien.c-types arrays assocs classes
classes.algebra classes.tuple combinators.short-circuit fry classes.algebra classes.tuple combinators.short-circuit fry
generic kernel math namespaces sequences sets words ; generic kernel math namespaces sequences sets words ;
FROM: classes.tuple.private => tuple-layout ; FROM: classes.tuple.private => tuple-layout ;
FROM: namespaces => set ;
IN: stack-checker.dependencies IN: stack-checker.dependencies
! Words that the current quotation depends on ! Words that the current quotation depends on

1
basis/stack-checker/transforms/transforms.factor
View File

@ -6,7 +6,6 @@ locals namespaces quotations sequences stack-checker.backend
stack-checker.dependencies stack-checker.errors stack-checker.dependencies stack-checker.errors
stack-checker.recursive-state stack-checker.values stack-checker.recursive-state stack-checker.values
stack-checker.visitor words ; stack-checker.visitor words ;
FROM: namespaces => set ;
IN: stack-checker.transforms IN: stack-checker.transforms
: call-transformer ( stack quot -- newquot ) : call-transformer ( stack quot -- newquot )

1
basis/tools/deploy/shaker/shaker.factor
View File

@ -23,7 +23,6 @@ QUALIFIED: source-files
QUALIFIED: source-files.errors QUALIFIED: source-files.errors
QUALIFIED: vocabs QUALIFIED: vocabs
QUALIFIED: vocabs.loader QUALIFIED: vocabs.loader
FROM: namespaces => set ;
IN: tools.deploy.shaker IN: tools.deploy.shaker
! This file is some hairy shit. ! This file is some hairy shit.

1
basis/ui/backend/windows/windows.factor
View File

@ -14,7 +14,6 @@ accessors math.rectangles math.order calendar ascii sets io.crlf
io.encodings.utf16n windows.errors literals ui.pixel-formats io.encodings.utf16n windows.errors literals ui.pixel-formats
ui.pixel-formats.private memoize classes colors ui.pixel-formats.private memoize classes colors
specialized-arrays classes.struct ; specialized-arrays classes.struct ;
FROM: namespaces => set ;
SPECIALIZED-ARRAY: POINT SPECIALIZED-ARRAY: POINT
QUALIFIED-WITH: alien.c-types c QUALIFIED-WITH: alien.c-types c
IN: ui.backend.windows IN: ui.backend.windows

1
basis/ui/gadgets/gadgets-tests.factor
View File

@ -2,7 +2,6 @@ USING: accessors ui.gadgets ui.gadgets.packs ui.gadgets.worlds
tools.test namespaces models kernel dlists deques math tools.test namespaces models kernel dlists deques math
math.parser ui sequences hashtables assocs io arrays prettyprint math.parser ui sequences hashtables assocs io arrays prettyprint
io.streams.string math.rectangles ui.gadgets.private sets generic ; io.streams.string math.rectangles ui.gadgets.private sets generic ;
FROM: namespaces => set ;
IN: ui.gadgets.tests IN: ui.gadgets.tests
{ { 300 300 } } { { 300 300 } }

1
basis/ui/gestures/gestures.factor
View File

@ -5,7 +5,6 @@ namespaces make sequences words strings system hashtables math.parser
math.vectors classes.tuple classes boxes calendar timers combinators math.vectors classes.tuple classes boxes calendar timers combinators
sets columns fry deques ui.gadgets ui.gadgets.private ascii sets columns fry deques ui.gadgets ui.gadgets.private ascii
combinators.short-circuit ; combinators.short-circuit ;
FROM: namespaces => set ;
IN: ui.gestures IN: ui.gestures
: get-gesture-handler ( gesture gadget -- quot ) : get-gesture-handler ( gesture gadget -- quot )

1
basis/ui/render/render.factor
View File

@ -3,7 +3,6 @@
USING: math.rectangles math.vectors namespaces kernel accessors USING: math.rectangles math.vectors namespaces kernel accessors
assocs combinators sequences sets opengl opengl.gl colors assocs combinators sequences sets opengl opengl.gl colors
colors.constants ui.gadgets ui.pens ; colors.constants ui.gadgets ui.pens ;
FROM: namespaces => set ;
IN: ui.render IN: ui.render
SYMBOL: clip SYMBOL: clip

1
basis/vocabs/refresh/refresh.factor
View File

@ -3,7 +3,6 @@
USING: accessors assocs checksums checksums.crc32 USING: accessors assocs checksums checksums.crc32
combinators.short-circuit io.encodings.utf8 io.files kernel combinators.short-circuit io.encodings.utf8 io.files kernel
namespaces sequences sets source-files vocabs vocabs.loader ; namespaces sequences sets source-files vocabs vocabs.loader ;
FROM: namespaces => set ;
IN: vocabs.refresh IN: vocabs.refresh
: source-modified? ( path -- ? ) : source-modified? ( path -- ? )

1
basis/xml/elements/elements.factor
View File

@ -4,7 +4,6 @@ USING: kernel namespaces xml.tokenize xml.state xml.name
xml.data accessors arrays make xml.char-classes fry assocs sequences xml.data accessors arrays make xml.char-classes fry assocs sequences
math xml.errors sets combinators io.encodings io.encodings.iana math xml.errors sets combinators io.encodings io.encodings.iana
unicode.case xml.dtd strings xml.entities unicode.categories ; unicode.case xml.dtd strings xml.entities unicode.categories ;
FROM: namespaces => set ;
IN: xml.elements IN: xml.elements
: take-interpolated ( quot -- interpolated ) : take-interpolated ( quot -- interpolated )

1
core/alien/alien-tests.factor
View File

@ -2,7 +2,6 @@ USING: accessors alien alien.accessors alien.c-types alien.libraries
alien.syntax arrays byte-arrays continuations fry kernel kernel.private alien.syntax arrays byte-arrays continuations fry kernel kernel.private
layouts libc math namespaces prettyprint sequences sets system tools.memory layouts libc math namespaces prettyprint sequences sets system tools.memory
tools.test ; tools.test ;
FROM: namespaces => set ;
IN: alien.tests IN: alien.tests
{ t } [ -1 <alien> alien-address 0 > ] unit-test { t } [ -1 <alien> alien-address 0 > ] unit-test

1
core/classes/classes.factor
View File

@ -2,7 +2,6 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs combinators definitions kernel USING: accessors assocs combinators definitions kernel
make namespaces quotations sequences sets words words.symbol ; make namespaces quotations sequences sets words words.symbol ;
FROM: namespaces => set ;
IN: classes IN: classes
ERROR: bad-inheritance class superclass ; ERROR: bad-inheritance class superclass ;

1
core/compiler/units/units.factor
View File

@ -4,7 +4,6 @@ USING: accessors arrays assocs classes classes.private
classes.tuple classes.tuple.private continuations definitions classes.tuple classes.tuple.private continuations definitions
generic hash-sets init kernel kernel.private math namespaces generic hash-sets init kernel kernel.private math namespaces
sequences sets source-files.errors vocabs words ; sequences sets source-files.errors vocabs words ;
FROM: namespaces => set ;
IN: compiler.units IN: compiler.units
PRIMITIVE: modify-code-heap ( alist update-existing? reset-pics? -- ) PRIMITIVE: modify-code-heap ( alist update-existing? reset-pics? -- )

1
core/destructors/destructors.factor
View File

@ -2,7 +2,6 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs continuations init kernel make USING: accessors assocs continuations init kernel make
namespaces sequences sets ; namespaces sequences sets ;
FROM: namespaces => set ;
IN: destructors IN: destructors
SYMBOL: disposables SYMBOL: disposables

1
core/generic/standard/standard-tests.factor
View File

@ -5,7 +5,6 @@ generic.standard io.streams.string kernel make math
math.constants math.functions namespaces parser quotations math.constants math.functions namespaces parser quotations
sequences specialized-vectors strings tools.test words ; sequences specialized-vectors strings tools.test words ;
QUALIFIED-WITH: alien.c-types c QUALIFIED-WITH: alien.c-types c
FROM: namespaces => set ;
SPECIALIZED-VECTOR: c:double SPECIALIZED-VECTOR: c:double
IN: generic.standard.tests IN: generic.standard.tests

1
core/source-files/source-files.factor
View File

@ -4,7 +4,6 @@ USING: accessors arrays assocs checksums checksums.crc32
compiler.units continuations definitions io.encodings.utf8 compiler.units continuations definitions io.encodings.utf8
io.files io.pathnames kernel namespaces sequences sets io.files io.pathnames kernel namespaces sequences sets
source-files.errors strings words ; source-files.errors strings words ;
FROM: namespaces => set ;
IN: source-files IN: source-files
SYMBOL: source-files SYMBOL: source-files

1
extra/compiler/cfg/gvn/avail/avail.factor
View File

@ -9,7 +9,6 @@ compiler.cfg.gvn.graph
compiler.cfg.predecessors compiler.cfg.predecessors
compiler.cfg.renaming.functor compiler.cfg.renaming.functor
compiler.cfg.rpo ; compiler.cfg.rpo ;
FROM: namespaces => set ;
QUALIFIED: assocs QUALIFIED: assocs
IN: compiler.cfg.gvn.avail IN: compiler.cfg.gvn.avail

1
extra/graphviz/graphviz-tests.factor
View File

@ -6,7 +6,6 @@ io.directories.hierarchy io.files io.files.unique io.launcher
io.pathnames kernel locals make math math.combinatorics io.pathnames kernel locals make math math.combinatorics
math.parser memoize namespaces sequences sequences.extras sets math.parser memoize namespaces sequences sequences.extras sets
splitting system tools.test ; splitting system tools.test ;
FROM: namespaces => set ;
IN: graphviz.tests IN: graphviz.tests
! XXX hack ! XXX hack

1
extra/koszul/koszul.factor
View File

@ -4,7 +4,6 @@ USING: accessors arrays assocs combinators fry hashtables io
kernel locals make math math.matrices math.matrices.elimination kernel locals make math math.matrices math.matrices.elimination
math.order math.parser math.vectors namespaces prettyprint math.order math.parser math.vectors namespaces prettyprint
sequences sets shuffle sorting splitting ; sequences sets shuffle sorting splitting ;
FROM: namespaces => set ;
IN: koszul IN: koszul
! Utilities ! Utilities

1
extra/managed-server/chat/chat.factor
View File

@ -4,7 +4,6 @@ USING: accessors assocs calendar calendar.format
combinators.smart io io.crlf io.encodings.utf8 kernel locals combinators.smart io io.crlf io.encodings.utf8 kernel locals
managed-server namespaces sequences sorting splitting managed-server namespaces sequences sorting splitting
unicode.case ; unicode.case ;
FROM: namespaces => set ;
IN: managed-server.chat IN: managed-server.chat
TUPLE: chat-server < managed-server ; TUPLE: chat-server < managed-server ;

1
extra/managed-server/managed-server.factor
View File

@ -5,7 +5,6 @@ io.encodings.binary io.servers io.sockets
io.streams.duplex fry kernel locals math math.ranges multiline io.streams.duplex fry kernel locals math math.ranges multiline
namespaces prettyprint random sequences sets splitting threads namespaces prettyprint random sequences sets splitting threads
tools.continuations ; tools.continuations ;
FROM: namespaces => set ;
IN: managed-server IN: managed-server
TUPLE: managed-server < threaded-server clients ; TUPLE: managed-server < threaded-server clients ;

1
extra/project-euler/051/051.factor
View File

@ -29,7 +29,6 @@
USING: assocs kernel math math.combinatorics math.functions USING: assocs kernel math math.combinatorics math.functions
math.parser math.primes namespaces project-euler.common math.parser math.primes namespaces project-euler.common
sequences sets strings grouping math.ranges arrays fry math.order ; sequences sets strings grouping math.ranges arrays fry math.order ;
FROM: namespaces => set ;
IN: project-euler.051 IN: project-euler.051
<PRIVATE <PRIVATE
SYMBOL: family-count SYMBOL: family-count