Fix load-everything

diff --git a/core/compiler/tests/tuples.factor b/core/compiler/tests/tuples.factor
index 080e4ff63008ec3f86e62dbca867e60cec9df3ad..602b438432795832e0649e6b401b9cfb84191eae 100755 (executable)
--- a/core/compiler/tests/tuples.factor
+++ b/core/compiler/tests/tuples.factor
@@ -6,10 +6,5 @@ TUPLE: color red green blue ;
 [ T{ color f 1 2 3 } ]
 [ 1 2 3 [ color boa ] compile-call ] unit-test
 
-[ 1 3 ] [
-    1 2 3 color boa
-    [ { color-red color-blue } get-slots ] compile-call
-] unit-test
-
 [ T{ color f f f f } ]
 [ [ color new ] compile-call ] unit-test

diff --git a/extra/alias/alias.factor b/extra/alias/alias.factor
index a07c981b97a17671d006f6c647122558ac7b7f9b..4de4d833fa223368c8b57e9383f59145fb309176 100755 (executable)
--- a/extra/alias/alias.factor
+++ b/extra/alias/alias.factor
@@ -1,4 +1,6 @@
-USING: words quotations kernel effects sequences parser ;\r
+! Copyright (C) 2008 Slava Pestov.\r
+! See http://factorcode.org/license.txt for BSD license.\r
+USING: accessors words quotations kernel effects sequences parser ;\r
 IN: alias\r
 \r
 PREDICATE: alias < word "alias" word-prop ;\r

diff --git a/extra/classes/tuple/lib/lib.factor b/extra/classes/tuple/lib/lib.factor
index 10261a1df7d0d151e08127c8f6dd4d806592c73a..fbc3afe76c5c621bf2bae5880529f35a8517e318 100755 (executable)
--- a/extra/classes/tuple/lib/lib.factor
+++ b/extra/classes/tuple/lib/lib.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2007 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel macros sequences slots words mirrors ;
+USING: kernel macros sequences slots words classes.tuple ;
 IN: classes.tuple.lib
 
 : reader-slots ( seq -- quot )

diff --git a/extra/cpu/8080/emulator/emulator.factor b/extra/cpu/8080/emulator/emulator.factor
index d8f58d31ab85a95ff3dd723cb4f1b7e0a15653cf..ca650a4f016f84b950f4dbdb4698f3e73c1119ae 100755 (executable)
--- a/extra/cpu/8080/emulator/emulator.factor
+++ b/extra/cpu/8080/emulator/emulator.factor
@@ -1,9 +1,10 @@
 ! Copyright (C) 2006 Chris Double.
 ! See http://factorcode.org/license.txt for BSD license.
 !
-USING: kernel math sequences words arrays io io.files namespaces
-math.parser assocs quotations parser lexer parser-combinators
-tools.time io.encodings.binary sequences.deep symbols combinators ;
+USING: accessors kernel math sequences words arrays io io.files
+namespaces math.parser assocs quotations parser lexer
+parser-combinators tools.time io.encodings.binary sequences.deep
+symbols combinators ;
 IN: cpu.8080.emulator
 
 TUPLE: cpu b c d e f h l a pc sp halted? last-interrupt cycles ram ;

diff --git a/extra/fjsc/fjsc.factor b/extra/fjsc/fjsc.factor
index 5395997accdeab2f9decac8f3120e71167f5468a..ec3d92f78b473ea597758b2a7d00b9b6ce270274 100755 (executable)
--- a/extra/fjsc/fjsc.factor
+++ b/extra/fjsc/fjsc.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2006 Chris Double. All Rights Reserved.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel peg strings promises sequences math math.parser
-       namespaces words quotations arrays hashtables io
-       io.streams.string assocs memoize ascii peg.parsers ;
+USING: accessors kernel peg strings promises sequences math
+math.parser namespaces words quotations arrays hashtables io
+io.streams.string assocs memoize ascii peg.parsers ;
 IN: fjsc
 
 TUPLE: ast-number value ;
@@ -346,7 +346,7 @@ M: hashtable (parse-factor-quotation) ( object -- ast )
   ] { } make <ast-hashtable> ;
 
 M: wrapper (parse-factor-quotation) ( object -- ast )
-  wrapped dup name>> swap vocabulary>> <ast-word> ;
+  wrapped>> dup name>> swap vocabulary>> <ast-word> ;
 
 GENERIC: fjsc-parse ( object -- ast )
 

diff --git a/extra/inverse/inverse.factor b/extra/inverse/inverse.factor
index d6c3d633b2492a69d01baece4e30848af48fac92..97d4ae9b3b644a70a5dd21c896efd542a485d6d0 100755 (executable)
--- a/extra/inverse/inverse.factor
+++ b/extra/inverse/inverse.factor
@@ -1,8 +1,11 @@
-USING: kernel words inspector slots quotations sequences assocs
-math arrays inference effects shuffle continuations debugger
-classes.tuple namespaces vectors bit-arrays byte-arrays strings
-sbufs math.functions macros sequences.private combinators
-mirrors combinators.lib combinators.short-circuit ;
+! Copyright (C) 2007, 2008 Daniel Ehrenberg.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors kernel words inspector slots quotations
+sequences assocs math arrays inference effects shuffle
+continuations debugger classes.tuple namespaces vectors
+bit-arrays byte-arrays strings sbufs math.functions macros
+sequences.private combinators mirrors combinators.lib
+combinators.short-circuit ;
 IN: inverse
 
 TUPLE: fail ;
@@ -209,7 +212,7 @@ DEFER: _
     [ ] like [ drop ] compose ;
 
 : ?wrapped ( object -- wrapped )
-    dup wrapper? [ wrapped ] when ;
+    dup wrapper? [ wrapped>> ] when ;
 
 : boa-inverse ( class -- quot )
     [ deconstruct-pred ] keep slot-readers compose ;

diff --git a/extra/koszul/koszul.factor b/extra/koszul/koszul.factor
index dce589dc9e17fe9e13d3b16495711eab0e484484..a8edf6917f411c5aee90cf53074d9e00c04265d2 100755 (executable)
--- a/extra/koszul/koszul.factor
+++ b/extra/koszul/koszul.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2006, 2007 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: arrays assocs hashtables assocs io kernel math
+USING: accessors arrays assocs hashtables assocs io kernel math
 math.vectors math.matrices math.matrices.elimination namespaces
 parser prettyprint sequences words combinators math.parser
 splitting sorting shuffle symbols sets math.order ;

diff --git a/extra/multi-methods/multi-methods.factor b/extra/multi-methods/multi-methods.factor
index 96a03bd806e2c8b0da8ee6b0e6c245e319f090b6..c8128c33eeafd1160e94441048c87bfb760dfe17 100755 (executable)
--- a/extra/multi-methods/multi-methods.factor
+++ b/extra/multi-methods/multi-methods.factor
@@ -168,7 +168,7 @@ M: method-body crossref?
 : <method> ( specializer generic -- word )
     [ method-word-props ] 2keep
     method-word-name f <word>
-    [ set-word-props ] keep ;
+    swap >>props ;
 
 : with-methods ( word quot -- )
     over >r >r "multi-methods" word-prop

diff --git a/extra/odbc/odbc.factor b/extra/odbc/odbc.factor
index 17eab5b0a4deb018a31c3aeab3b962cd79f192b6..5faca7109ad4bb2595c5361ae81298508030c5fa 100644 (file)
--- a/extra/odbc/odbc.factor
+++ b/extra/odbc/odbc.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2007 Chris Double.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel alien alien.strings alien.syntax combinators
-alien.c-types strings sequences namespaces words math threads
-io.encodings.ascii ;
+USING: accessors kernel alien alien.strings alien.syntax
+combinators alien.c-types strings sequences namespaces words
+math threads io.encodings.ascii ;
 IN: odbc
 
 << "odbc" "odbc32.dll" "stdcall" add-library >>

diff --git a/extra/optimizer/report/report.factor b/extra/optimizer/report/report.factor
deleted file mode 100755 (executable)
index 037427c..0000000
--- a/extra/optimizer/report/report.factor
+++ /dev/null
@@ -1,28 +0,0 @@
-USING: assocs words sequences arrays compiler tools.time\r
-io.styles io prettyprint vocabs kernel sorting generator\r
-optimizer math math.order ;\r
-IN: optimizer.report\r
-\r
-: count-optimization-passes ( nodes n -- n )\r
-    >r optimize-1\r
-    [ r> 1+ count-optimization-passes ] [ drop r> ] if ;\r
-\r
-: results ( seq -- )\r
-    [ [ second ] prepose compare ] curry sort 20 tail*\r
-    print\r
-    standard-table-style\r
-    [\r
-        [ [ [ pprint-cell ] each ] with-row ] each\r
-    ] tabular-output ;\r
-\r
-: optimizer-report ( -- )\r
-    all-words [ compiled>> ] filter\r
-    [\r
-        dup [\r
-            word-dataflow nip 1 count-optimization-passes\r
-        ] benchmark 2array\r
-    ] { } map>assoc\r
-    [ first ] "Worst number of optimizer passes:" results\r
-    [ second ] "Worst compile times:" results ;\r
-\r
-MAIN: optimizer-report\r

diff --git a/extra/reports/noise/noise.factor b/extra/reports/noise/noise.factor
index e59d48d439d72564f7e7cbd151372339d6bf0162..32a43a4fb4d9ef97543aaba9520bab571216e907 100755 (executable)
--- a/extra/reports/noise/noise.factor
+++ b/extra/reports/noise/noise.factor
@@ -1,4 +1,4 @@
-USING: assocs math kernel shuffle combinators.lib\r
+USING: accessors assocs math kernel shuffle combinators.lib\r
 words quotations arrays combinators sequences math.vectors\r
 io.styles prettyprint vocabs sorting io generic locals.private\r
 math.statistics math.order ;\r
@@ -90,7 +90,7 @@ GENERIC: noise ( obj -- pair )
 \r
 M: word noise badness 1 2array ;\r
 \r
-M: wrapper noise wrapped noise ;\r
+M: wrapper noise wrapped>> noise ;\r
 \r
 M: let noise let-body noise ;\r
 \r

diff --git a/extra/reports/optimizer/optimizer.factor b/extra/reports/optimizer/optimizer.factor
index 4ab75d5f4cd3e7ef5eb994b7d5f7f49a2ceda1d5..501637105246430cc40bf7b23a14f7289122d11a 100755 (executable)
--- a/extra/reports/optimizer/optimizer.factor
+++ b/extra/reports/optimizer/optimizer.factor
@@ -1,6 +1,8 @@
-USING: assocs words sequences arrays compiler tools.time\r
-io.styles io prettyprint vocabs kernel sorting generator\r
-optimizer math math.order ;\r
+! Copyright (C) 2008 Slava Pestov.\r
+! See http://factorcode.org/license.txt for BSD license.\r
+USING: accessors assocs words sequences arrays compiler\r
+tools.time io.styles io prettyprint vocabs kernel sorting\r
+generator optimizer math math.order ;\r
 IN: report.optimizer\r
 \r
 : count-optimization-passes ( nodes n -- n )\r

diff --git a/extra/tools/deploy/shaker/shaker.factor b/extra/tools/deploy/shaker/shaker.factor
index d03d3142f7d7693ab651061a06d0491c1f9bddf5..ba37784b11b80479e9dec03d00af7830eb412565 100755 (executable)
--- a/extra/tools/deploy/shaker/shaker.factor
+++ b/extra/tools/deploy/shaker/shaker.factor
@@ -1,9 +1,10 @@
 ! Copyright (C) 2007, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: qualified io.streams.c init fry namespaces assocs kernel
-parser lexer strings.parser tools.deploy.config vocabs sequences
-words words.private memory kernel.private continuations io
-prettyprint vocabs.loader debugger system strings sets ;
+USING: accessors qualified io.streams.c init fry namespaces
+assocs kernel parser lexer strings.parser tools.deploy.config
+vocabs sequences words words.private memory kernel.private
+continuations io prettyprint vocabs.loader debugger system
+strings sets ;
 QUALIFIED: bootstrap.stage2
 QUALIFIED: classes
 QUALIFIED: command-line
@@ -62,12 +63,12 @@ IN: tools.deploy.shaker
 
 : strip-word-names ( words -- )
     "Stripping word names" show
-    [ f over set-word-name f swap set-vocabulary>> ] each ;
+    [ f >>name f >>vocabulary drop ] each ;
 
 : strip-word-defs ( words -- )
     "Stripping symbolic word definitions" show
     [ "no-def-strip" word-prop not ] filter
-    [ [ ] swap set-word-def ] each ;
+    [ [ ] >>def drop ] each ;
 
 : strip-word-props ( stripped-props words -- )
     "Stripping word properties" show
@@ -76,7 +77,7 @@ IN: tools.deploy.shaker
             props>> swap
             '[ drop , member? not ] assoc-filter
             f assoc-like
-        ] keep set-word-props
+        ] keep (>>props)
     ] with each ;
 
 : stripped-word-props ( -- seq )

diff --git a/extra/vars/vars.factor b/extra/vars/vars.factor
index 243cdee2a9dd4deb1900587bee825c89d50e2ac7..7316cd6a6db468474311a854bcf82a73817bdeac 100644 (file)
--- a/extra/vars/vars.factor
+++ b/extra/vars/vars.factor
@@ -2,7 +2,7 @@
 
 ! Thanks to Mackenzie Straight for the idea
 
-USING: kernel parser lexer words namespaces sequences quotations ;
+USING: accessors kernel parser lexer words namespaces sequences quotations ;
 
 IN: vars
 

diff --git a/extra/xmode/rules/rules.factor b/extra/xmode/rules/rules.factor
index 42bbce1d1245e3d3f2e1748560cb7e8e15a58101..3fcae02a546614254a541c3c9bbe0d9c1181c5b1 100755 (executable)
--- a/extra/xmode/rules/rules.factor
+++ b/extra/xmode/rules/rules.factor
@@ -1,4 +1,4 @@
-USING: xmode.tokens xmode.keyword-map kernel
+USING: accessors xmode.tokens xmode.keyword-map kernel
 sequences vectors assocs strings memoize regexp unicode.case ;
 IN: xmode.rules