From 537269447c8ff7c830be0c1023e6016af3ab6e8a Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 2 Jul 2008 00:20:01 -0500 Subject: [PATCH] Move mirrors out of the boot image --- core/alien/compiler/compiler.factor | 2 +- core/classes/tuple/parser/parser-tests.factor | 2 +- core/classes/tuple/parser/parser.factor | 2 +- core/classes/tuple/tuple-tests.factor | 2 +- core/debugger/debugger.factor | 8 +-- core/dlists/dlists.factor | 2 +- core/generic/parser/parser.factor | 2 +- core/generic/standard/standard.factor | 2 +- core/inference/errors/errors.factor | 2 +- core/inference/known-words/known-words.factor | 2 +- core/inference/transforms/transforms.factor | 2 +- core/inspector/inspector-docs.factor | 8 +-- core/inspector/inspector.factor | 44 +++------------ core/io/encodings/utf16/utf16.factor | 2 +- core/lexer/lexer.factor | 2 +- core/optimizer/backend/backend.factor | 12 +++++ core/optimizer/inlining/inlining.factor | 54 +++++++++---------- core/optimizer/known-words/known-words.factor | 23 ++++---- core/parser/parser.factor | 2 +- core/source-files/source-files.factor | 2 +- core/strings/parser/parser.factor | 2 +- core/summary/summary-docs.factor | 12 +++++ core/summary/summary.factor | 42 +++++++++++++++ core/vocabs/loader/loader.factor | 7 ++- extra/bitfields/bitfields.factor | 2 +- extra/bootstrap/tools/tools.factor | 1 + extra/cocoa/application/application.factor | 2 +- extra/db/postgresql/lib/lib.factor | 2 +- extra/descriptive/descriptive.factor | 2 +- extra/editors/editors.factor | 2 +- extra/graphics/bitmap/bitmap.factor | 2 +- extra/hello-world/deploy.factor | 14 ++--- extra/help/crossref/crossref.factor | 2 +- extra/help/help-docs.factor | 2 +- extra/help/topics/topics.factor | 2 +- extra/http/client/client.factor | 2 +- extra/inverse/inverse.factor | 2 +- extra/io/encodings/strict/strict.factor | 2 +- extra/io/launcher/launcher.factor | 4 +- extra/io/ports/ports.factor | 2 +- extra/io/sockets/secure/secure.factor | 2 +- extra/io/sockets/sockets.factor | 2 +- extra/io/streams/duplex/duplex.factor | 2 +- extra/io/unix/backend/backend.factor | 2 +- extra/io/unix/sockets/secure/secure.factor | 2 +- extra/lisp/lisp.factor | 2 +- extra/maze/deploy.factor | 15 +++--- extra/openssl/openssl.factor | 2 +- extra/random/random.factor | 2 +- extra/state-parser/state-parser.factor | 2 +- extra/tar/tar.factor | 2 +- extra/tools/annotations/annotations.factor | 5 +- extra/tools/crossref/crossref.factor | 2 +- extra/tools/deploy/backend/backend.factor | 2 +- extra/tools/deploy/shaker/shaker.factor | 4 +- extra/tools/test/test.factor | 2 +- extra/tools/vocabs/browser/browser.factor | 2 +- extra/tools/vocabs/vocabs.factor | 2 +- extra/ui/gadgets/panes/panes-tests.factor | 2 +- .../presentations/presentations-docs.factor | 2 +- extra/ui/gadgets/worlds/worlds.factor | 2 +- extra/ui/gestures/gestures.factor | 2 +- extra/ui/tools/operations/operations.factor | 2 +- extra/ui/tools/tools-docs.factor | 2 +- extra/units/units.factor | 2 +- extra/usa-cities/usa-cities.factor | 2 +- extra/xml/errors/errors.factor | 2 +- 67 files changed, 190 insertions(+), 167 deletions(-) create mode 100644 core/summary/summary-docs.factor create mode 100644 core/summary/summary.factor diff --git a/core/alien/compiler/compiler.factor b/core/alien/compiler/compiler.factor index ff4227ce27..df20551c76 100755 --- a/core/alien/compiler/compiler.factor +++ b/core/alien/compiler/compiler.factor @@ -4,7 +4,7 @@ USING: arrays generator generator.registers generator.fixup hashtables kernel math namespaces sequences words inference.state inference.backend inference.dataflow system math.parser classes alien.arrays alien.c-types alien.strings -alien.structs alien.syntax cpu.architecture alien inspector +alien.structs alien.syntax cpu.architecture alien summary quotations assocs kernel.private threads continuations.private libc combinators compiler.errors continuations layouts accessors init sets ; diff --git a/core/classes/tuple/parser/parser-tests.factor b/core/classes/tuple/parser/parser-tests.factor index d75a63dfde..10cbe268da 100644 --- a/core/classes/tuple/parser/parser-tests.factor +++ b/core/classes/tuple/parser/parser-tests.factor @@ -51,7 +51,7 @@ must-fail-with [ error>> unexpected-eof? ] must-fail-with -[ "IN: classes.tuple.parser.tests USE: alien TUPLE: foo { slot alien } ;" eval ] +[ "IN: classes.tuple.parser.tests USE: generic.standard TUPLE: foo { slot no-method } ;" eval ] [ error>> no-initial-value? ] must-fail-with diff --git a/core/classes/tuple/parser/parser.factor b/core/classes/tuple/parser/parser.factor index 411820ef4f..e9919ee992 100644 --- a/core/classes/tuple/parser/parser.factor +++ b/core/classes/tuple/parser/parser.factor @@ -1,6 +1,6 @@ ! Copyright (C) 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: accessors kernel sets namespaces sequences inspector parser +USING: accessors kernel sets namespaces sequences summary parser lexer combinators words classes.parser classes.tuple arrays ; IN: classes.tuple.parser diff --git a/core/classes/tuple/tuple-tests.factor b/core/classes/tuple/tuple-tests.factor index ea452c1915..853e290810 100755 --- a/core/classes/tuple/tuple-tests.factor +++ b/core/classes/tuple/tuple-tests.factor @@ -3,7 +3,7 @@ math.constants parser sequences tools.test words assocs namespaces quotations sequences.private classes continuations generic.standard effects classes.tuple classes.tuple.private arrays vectors strings compiler.units accessors classes.algebra -calendar prettyprint io.streams.string splitting inspector +calendar prettyprint io.streams.string splitting summary columns math.order classes.private slots slots.private ; IN: classes.tuple.tests diff --git a/core/debugger/debugger.factor b/core/debugger/debugger.factor index 3bbb017570..f5316b0858 100755 --- a/core/debugger/debugger.factor +++ b/core/debugger/debugger.factor @@ -1,12 +1,12 @@ ! Copyright (C) 2004, 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: slots arrays definitions generic hashtables inspector io +USING: slots arrays definitions generic hashtables summary io kernel math namespaces prettyprint prettyprint.config sequences assocs sequences.private strings io.styles vectors words system splitting math.parser classes.tuple continuations continuations.private combinators generic.math classes.builtin classes compiler.units generic.standard vocabs threads -threads.private init kernel.private libc io.encodings mirrors +threads.private init kernel.private libc io.encodings accessors math.order destructors ; IN: debugger @@ -16,7 +16,6 @@ GENERIC: error-help ( error -- topic ) M: object error. . ; M: object error-help drop f ; -M: tuple error. describe ; M: tuple error-help class ; M: string error. print ; @@ -33,9 +32,6 @@ M: string error. print ; : :get ( variable -- value ) error-continuation get continuation-name assoc-stack ; -: :vars ( -- ) - error-continuation get continuation-name namestack. ; - : :res ( n -- * ) 1- restarts get-global nth f restarts set-global restart ; diff --git a/core/dlists/dlists.factor b/core/dlists/dlists.factor index 2b6c7f11f7..0095734e63 100755 --- a/core/dlists/dlists.factor +++ b/core/dlists/dlists.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2007, 2008 Mackenzie Straight, Doug Coleman, ! Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: combinators kernel math sequences accessors inspector +USING: combinators kernel math sequences accessors summary dequeues ; IN: dlists diff --git a/core/generic/parser/parser.factor b/core/generic/parser/parser.factor index ba9cd5244c..74ab769933 100644 --- a/core/generic/parser/parser.factor +++ b/core/generic/parser/parser.factor @@ -1,6 +1,6 @@ ! Copyright (C) 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: parser kernel words generic namespaces inspector ; +USING: parser kernel words generic namespaces summary ; IN: generic.parser ERROR: not-in-a-method-error ; diff --git a/core/generic/standard/standard.factor b/core/generic/standard/standard.factor index b9ddcae299..89c2a2a396 100644 --- a/core/generic/standard/standard.factor +++ b/core/generic/standard/standard.factor @@ -93,7 +93,7 @@ ERROR: no-next-method class generic ; : single-next-method-quot ( class generic -- quot ) [ - [ drop [ instance? ] curry % ] + [ drop "predicate" word-prop % ] [ 2dup next-method [ 2nip 1quotation ] diff --git a/core/inference/errors/errors.factor b/core/inference/errors/errors.factor index 4a75040243..e1d5bd434c 100644 --- a/core/inference/errors/errors.factor +++ b/core/inference/errors/errors.factor @@ -2,7 +2,7 @@ ! See http://factorcode.org/license.txt for BSD license. IN: inference.errors USING: inference.backend inference.dataflow kernel generic -sequences prettyprint io words arrays inspector effects debugger +sequences prettyprint io words arrays summary effects debugger assocs accessors ; M: inference-error error-help error>> error-help ; diff --git a/core/inference/known-words/known-words.factor b/core/inference/known-words/known-words.factor index c3ad6be1c2..bd6406fa34 100755 --- a/core/inference/known-words/known-words.factor +++ b/core/inference/known-words/known-words.factor @@ -10,7 +10,7 @@ namespaces.private parser prettyprint quotations quotations.private sbufs sbufs.private sequences sequences.private slots.private strings strings.private system threads.private classes.tuple classes.tuple.private vectors -vectors.private words words.private assocs inspector +vectors.private words words.private assocs summary compiler.units system.private ; IN: inference.known-words diff --git a/core/inference/transforms/transforms.factor b/core/inference/transforms/transforms.factor index 7bae8f5abd..53e34d62b0 100755 --- a/core/inference/transforms/transforms.factor +++ b/core/inference/transforms/transforms.factor @@ -3,7 +3,7 @@ USING: accessors arrays kernel words sequences generic math namespaces quotations assocs combinators math.bitfields inference.backend inference.dataflow inference.state -classes.tuple classes.tuple.private effects inspector hashtables +classes.tuple classes.tuple.private effects summary hashtables classes generic sets definitions generic.standard slots.private ; IN: inference.transforms diff --git a/core/inspector/inspector-docs.factor b/core/inspector/inspector-docs.factor index ab1c38b0b7..27401f3e34 100644 --- a/core/inspector/inspector-docs.factor +++ b/core/inspector/inspector-docs.factor @@ -22,9 +22,7 @@ $nl { $subsection inspector-hook } "A description of an object can be printed without starting the inspector:" { $subsection describe } -{ $subsection describe* } -"A word for getting very brief descriptions of words and general objects:" -{ $subsection summary } ; +{ $subsection describe* } ; ABOUT: "inspector" @@ -54,10 +52,6 @@ $nl } } { $notes "This word is a factor of " { $link describe } " and " { $link inspect } "." } ; -HELP: summary -{ $values { "object" object } { "string" "a string" } } -{ $contract "Outputs a brief description of the object." } ; - HELP: inspector-stack { $var-description "If the inspector is running, this variable holds previously-inspected objects." } ; diff --git a/core/inspector/inspector.factor b/core/inspector/inspector.factor index 51d3cb319d..0f925d1ea1 100755 --- a/core/inspector/inspector.factor +++ b/core/inspector/inspector.factor @@ -3,46 +3,9 @@ USING: accessors arrays generic hashtables io kernel assocs math namespaces prettyprint sequences strings io.styles vectors words quotations mirrors splitting math.parser classes vocabs refs -sets sorting ; +sets sorting summary debugger continuations ; IN: inspector -GENERIC: summary ( object -- string ) - -: object-summary ( object -- string ) - class name>> " instance" append ; - -M: object summary object-summary ; - -M: input summary - [ - "Input: " % - input-string "\n" split1 swap % - "..." "" ? % - ] "" make ; - -M: word summary synopsis ; - -M: sequence summary - [ - dup class name>> % - " with " % - length # - " elements" % - ] "" make ; - -M: assoc summary - [ - dup class name>> % - " with " % - assoc-size # - " entries" % - ] "" make ; - -! Override sequence => integer instance -M: f summary object-summary ; - -M: integer summary object-summary ; - : value-editor ( path -- ) [ [ pprint-short ] presented-printer set @@ -101,6 +64,8 @@ SYMBOL: +editable+ : describe ( obj -- ) H{ } describe* ; +M: tuple error. describe ; + : namestack. ( seq -- ) [ [ global eq? not ] filter [ keys ] gather ] keep [ dupd assoc-stack ] curry H{ } map>assoc describe ; @@ -108,6 +73,9 @@ SYMBOL: +editable+ : .vars ( -- ) namestack namestack. ; +: :vars ( -- ) + error-continuation get continuation-name namestack. ; + SYMBOL: inspector-hook [ H{ { +number-rows+ t } } describe* ] inspector-hook set-global diff --git a/core/io/encodings/utf16/utf16.factor b/core/io/encodings/utf16/utf16.factor index c0aaadc947..80706233db 100755 --- a/core/io/encodings/utf16/utf16.factor +++ b/core/io/encodings/utf16/utf16.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2006, 2008 Daniel Ehrenberg. ! See http://factorcode.org/license.txt for BSD license. USING: math kernel sequences sbufs vectors namespaces io.binary -io.encodings combinators splitting io byte-arrays inspector ; +io.encodings combinators splitting io byte-arrays summary ; IN: io.encodings.utf16 SINGLETON: utf16be diff --git a/core/lexer/lexer.factor b/core/lexer/lexer.factor index f791cc7391..48724e6009 100644 --- a/core/lexer/lexer.factor +++ b/core/lexer/lexer.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: kernel sequences accessors namespaces math words strings -debugger io vectors arrays math.parser combinators inspector +debugger io vectors arrays math.parser combinators summary continuations ; IN: lexer diff --git a/core/optimizer/backend/backend.factor b/core/optimizer/backend/backend.factor index 9b70ccdd9d..2f8b8b80e1 100755 --- a/core/optimizer/backend/backend.factor +++ b/core/optimizer/backend/backend.factor @@ -115,3 +115,15 @@ M: f set-node-successor 2drop ; : drop-inputs ( node -- #shuffle ) node-in-d clone \ #shuffle in-node ; + +: optimizer-hooks ( node -- conditions ) + param>> "optimizer-hooks" word-prop ; + +: optimizer-hook ( node -- pair/f ) + dup optimizer-hooks [ first call ] find 2nip ; + +: optimize-hook ( node -- ) + dup optimizer-hook second call ; + +: define-optimizers ( word optimizers -- ) + "optimizer-hooks" set-word-prop ; diff --git a/core/optimizer/inlining/inlining.factor b/core/optimizer/inlining/inlining.factor index e741f2d171..9647f42d51 100755 --- a/core/optimizer/inlining/inlining.factor +++ b/core/optimizer/inlining/inlining.factor @@ -107,19 +107,6 @@ DEFER: (flat-length) [ 2drop t ] } cond ; -! Resolve type checks at compile time where possible -: comparable? ( actual testing -- ? ) - #! If actual is a subset of testing or if the two classes - #! are disjoint, return t. - 2dup class<= >r classes-intersect? not r> or ; - -: optimize-predicate? ( #call -- ? ) - dup node-param "predicating" word-prop dup [ - >r node-class-first r> comparable? - ] [ - 2drop f - ] if ; - : literal-quot ( node literals -- quot ) #! Outputs a quotation which drops the node's inputs, and #! pushes some literals. @@ -130,33 +117,40 @@ DEFER: (flat-length) #! Make #shuffle -> #push -> #return -> successor dupd literal-quot f splice-quot ; -: evaluate-predicate ( #call -- ? ) - dup node-param "predicating" word-prop >r - node-class-first r> class<= ; +! Resolve type checks at compile time where possible +: comparable? ( actual testing -- ? ) + #! If actual is a subset of testing or if the two classes + #! are disjoint, return t. + 2dup class<= >r classes-intersect? not r> or ; -: optimize-predicate ( #call -- node ) +: optimize-check? ( #call value class -- ? ) + >r node-class r> comparable? ; + +: evaluate-check ( node value class -- ? ) + >r node-class r> class<= ; + +: optimize-check ( #call value class -- node ) #! If the predicate is followed by a branch we fold it #! immediately - dup evaluate-predicate swap - dup node-successor #if? [ + [ evaluate-check ] [ 2drop ] 3bi + dup successor>> #if? [ dup drop-inputs >r - node-successor swap 0 1 ? fold-branch - r> [ set-node-successor ] keep + successor>> swap 0 1 ? fold-branch + r> swap >>successor ] [ swap 1array inline-literals ] if ; -: optimizer-hooks ( node -- conditions ) - node-param "optimizer-hooks" word-prop ; - -: optimizer-hook ( node -- pair/f ) - dup optimizer-hooks [ first call ] find 2nip ; +: (optimize-predicate) ( #call -- #call value class ) + [ ] [ in-d>> first ] [ param>> "predicating" word-prop ] tri ; -: optimize-hook ( node -- ) - dup optimizer-hook second call ; +: optimize-predicate? ( #call -- ? ) + dup param>> "predicating" word-prop [ + (optimize-predicate) optimize-check? + ] [ drop f ] if ; -: define-optimizers ( word optimizers -- ) - "optimizer-hooks" set-word-prop ; +: optimize-predicate ( #call -- node ) + (optimize-predicate) optimize-check ; : flush-eval? ( #call -- ? ) dup node-param "flushable" word-prop [ diff --git a/core/optimizer/known-words/known-words.factor b/core/optimizer/known-words/known-words.factor index 52330ebdd6..1c9f659ac4 100755 --- a/core/optimizer/known-words/known-words.factor +++ b/core/optimizer/known-words/known-words.factor @@ -145,18 +145,19 @@ byte-vectors ; ] if ] "constraints" set-word-prop -! open-code instance? checks on predicate classes -: literal-predicate-class? ( #call -- ? ) - dup in-d>> second node-literal predicate-class? ; - -: expand-predicate-instance ( #call -- node ) - dup dup in-d>> second node-literal - [ +inlined+ depends-on ] - [ "predicate-definition" word-prop [ drop ] prepose ] bi - f splice-quot ; +! Eliminate instance? checks when the outcome is known at compile time +: (optimize-instance) ( #call -- #call value class/f ) + [ ] [ in-d>> first ] [ dup in-d>> second node-literal ] tri ; + +: optimize-instance? ( #call -- ? ) + (optimize-instance) dup class? + [ optimize-check? ] [ 3drop f ] if ; + +: optimize-instance ( #call -- node ) + (optimize-instance) optimize-check ; -\ predicate-instance? { - { [ dup literal-predicate-class? ] [ expand-predicate-instance ] } +\ instance? { + { [ dup optimize-instance? ] [ optimize-instance ] } } define-optimizers ! eq? on the same object is always t diff --git a/core/parser/parser.factor b/core/parser/parser.factor index 5ea19ab880..2e6c89ca95 100755 --- a/core/parser/parser.factor +++ b/core/parser/parser.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2005, 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: arrays definitions generic assocs kernel math namespaces -prettyprint sequences strings vectors words quotations inspector +prettyprint sequences strings vectors words quotations summary io.styles io combinators sorting splitting math.parser effects continuations debugger io.files io.streams.string vocabs io.encodings.utf8 source-files classes hashtables diff --git a/core/source-files/source-files.factor b/core/source-files/source-files.factor index 215151c215..abe1b8b661 100755 --- a/core/source-files/source-files.factor +++ b/core/source-files/source-files.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2007, 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: arrays definitions generic assocs kernel math namespaces -prettyprint sequences strings vectors words quotations inspector +prettyprint sequences strings vectors words quotations summary io.styles io combinators sorting splitting math.parser effects continuations debugger io.files checksums checksums.crc32 vocabs hashtables graphs compiler.units io.encodings.utf8 accessors ; diff --git a/core/strings/parser/parser.factor b/core/strings/parser/parser.factor index 08421b4a20..847fba9530 100644 --- a/core/strings/parser/parser.factor +++ b/core/strings/parser/parser.factor @@ -1,6 +1,6 @@ ! Copyright (C) 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: kernel inspector assocs namespaces splitting sequences +USING: kernel summary assocs namespaces splitting sequences strings math.parser lexer ; IN: strings.parser diff --git a/core/summary/summary-docs.factor b/core/summary/summary-docs.factor new file mode 100644 index 0000000000..4dfbd16ed4 --- /dev/null +++ b/core/summary/summary-docs.factor @@ -0,0 +1,12 @@ +IN: summary +USING: kernel strings help.markup help.syntax ; + +ARTICLE: "summary" "Summary" +"A word for getting very brief descriptions of words and general objects:" +{ $subsection summary } ; + +HELP: summary +{ $values { "object" object } { "string" string } } +{ $contract "Outputs a brief description of the object." } ; + +ABOUT: "summary" diff --git a/core/summary/summary.factor b/core/summary/summary.factor new file mode 100644 index 0000000000..61f59682e8 --- /dev/null +++ b/core/summary/summary.factor @@ -0,0 +1,42 @@ +! Copyright (C) 2008 Slava Pestov. +! See http://factorcode.org/license.txt for BSD license. +USING: accessors classes sequences splitting kernel namespaces +words math math.parser io.styles prettyprint assocs ; +IN: summary + +GENERIC: summary ( object -- string ) + +: object-summary ( object -- string ) + class name>> " instance" append ; + +M: object summary object-summary ; + +M: input summary + [ + "Input: " % + input-string "\n" split1 swap % + "..." "" ? % + ] "" make ; + +M: word summary synopsis ; + +M: sequence summary + [ + dup class name>> % + " with " % + length # + " elements" % + ] "" make ; + +M: assoc summary + [ + dup class name>> % + " with " % + assoc-size # + " entries" % + ] "" make ; + +! Override sequence => integer instance +M: f summary object-summary ; + +M: integer summary object-summary ; diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor index 04cf9a2ac1..6966ae8dc4 100755 --- a/core/vocabs/loader/loader.factor +++ b/core/vocabs/loader/loader.factor @@ -1,10 +1,9 @@ ! Copyright (C) 2007, 2008 Eduardo Cavazos, Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: namespaces sequences io.files kernel assocs words vocabs -definitions parser continuations inspector debugger io io.styles -hashtables sorting prettyprint source-files -arrays combinators strings system math.parser compiler.errors -splitting init ; +definitions parser continuations summary debugger io io.styles +hashtables sorting prettyprint source-files arrays combinators +strings system math.parser compiler.errors splitting init ; IN: vocabs.loader SYMBOL: vocab-roots diff --git a/extra/bitfields/bitfields.factor b/extra/bitfields/bitfields.factor index c83d4b5152..410fd4bdec 100644 --- a/extra/bitfields/bitfields.factor +++ b/extra/bitfields/bitfields.factor @@ -1,4 +1,4 @@ -USING: parser lexer kernel math sequences namespaces assocs inspector +USING: parser lexer kernel math sequences namespaces assocs summary words splitting math.parser arrays sequences.next mirrors shuffle compiler.units ; IN: bitfields diff --git a/extra/bootstrap/tools/tools.factor b/extra/bootstrap/tools/tools.factor index 670bca4903..f9d51b3dfc 100755 --- a/extra/bootstrap/tools/tools.factor +++ b/extra/bootstrap/tools/tools.factor @@ -1,6 +1,7 @@ USING: vocabs.loader sequences ; { + "inspector" "bootstrap.image" "tools.annotations" "tools.crossref" diff --git a/extra/cocoa/application/application.factor b/extra/cocoa/application/application.factor index e237302744..3e6f8c5be7 100755 --- a/extra/cocoa/application/application.factor +++ b/extra/cocoa/application/application.factor @@ -2,7 +2,7 @@ ! See http://factorcode.org/license.txt for BSD license. USING: alien alien.syntax io kernel namespaces core-foundation core-foundation.run-loop cocoa.messages cocoa cocoa.classes -cocoa.runtime sequences threads debugger init inspector +cocoa.runtime sequences threads debugger init summary kernel.private ; IN: cocoa.application diff --git a/extra/db/postgresql/lib/lib.factor b/extra/db/postgresql/lib/lib.factor index 9d2ced3afa..eba7f69334 100755 --- a/extra/db/postgresql/lib/lib.factor +++ b/extra/db/postgresql/lib/lib.factor @@ -5,7 +5,7 @@ quotations sequences db.postgresql.ffi alien alien.c-types db.types tools.walker ascii splitting math.parser combinators libc shuffle calendar.format byte-arrays destructors prettyprint accessors strings serialize io.encodings.binary io.encodings.utf8 -alien.strings io.streams.byte-array inspector present urls ; +alien.strings io.streams.byte-array summary present urls ; IN: db.postgresql.lib : postgresql-result-error-message ( res -- str/f ) diff --git a/extra/descriptive/descriptive.factor b/extra/descriptive/descriptive.factor index 6aafe46b4d..3b55aa0521 100755 --- a/extra/descriptive/descriptive.factor +++ b/extra/descriptive/descriptive.factor @@ -1,6 +1,6 @@ USING: words kernel sequences combinators.lib locals locals.private accessors parser namespaces continuations -inspector definitions arrays.lib arrays ; +summary definitions arrays.lib arrays ; IN: descriptive ERROR: descriptive-error args underlying word ; diff --git a/extra/editors/editors.factor b/extra/editors/editors.factor index 78f6caf965..90c40f9bd5 100755 --- a/extra/editors/editors.factor +++ b/extra/editors/editors.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2005, 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: parser lexer kernel namespaces sequences definitions -io.files inspector continuations tools.crossref tools.vocabs io +io.files summary continuations tools.crossref tools.vocabs io prettyprint source-files assocs vocabs vocabs.loader io.backend splitting accessors ; IN: editors diff --git a/extra/graphics/bitmap/bitmap.factor b/extra/graphics/bitmap/bitmap.factor index 611319e28b..d2ddad0ae3 100755 --- a/extra/graphics/bitmap/bitmap.factor +++ b/extra/graphics/bitmap/bitmap.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2007 Doug Coleman. ! See http://factorcode.org/license.txt for BSD license. -USING: alien arrays byte-arrays combinators inspector +USING: alien arrays byte-arrays combinators summary io.backend graphics.viewer io io.binary io.files kernel libc math math.functions namespaces opengl opengl.gl prettyprint sequences strings ui ui.gadgets.panes io.encodings.binary ; diff --git a/extra/hello-world/deploy.factor b/extra/hello-world/deploy.factor index 77421938a9..403cb4737e 100755 --- a/extra/hello-world/deploy.factor +++ b/extra/hello-world/deploy.factor @@ -1,15 +1,15 @@ USING: tools.deploy.config ; H{ - { deploy-word-defs? f } + { deploy-word-props? f } { deploy-random? f } - { deploy-name "Hello world (console)" } - { deploy-threads? f } { deploy-compiler? f } - { deploy-math? f } { deploy-c-types? f } - { deploy-io 2 } - { deploy-reflection 1 } { deploy-ui? f } + { deploy-reflection 1 } + { deploy-threads? f } + { deploy-io 2 } + { deploy-word-defs? f } { "stop-after-last-window?" t } - { deploy-word-props? f } + { deploy-name "Hello world (console)" } + { deploy-math? f } } diff --git a/extra/help/crossref/crossref.factor b/extra/help/crossref/crossref.factor index 54ede93aa1..9eec5b859e 100644 --- a/extra/help/crossref/crossref.factor +++ b/extra/help/crossref/crossref.factor @@ -2,7 +2,7 @@ ! See http://factorcode.org/license.txt for BSD license. USING: arrays definitions generic assocs io kernel namespaces prettyprint prettyprint.sections -sequences words inspector classes help.topics help.markup ; +sequences words summary classes help.topics help.markup ; IN: help.crossref : article-children ( topic -- seq ) diff --git a/extra/help/help-docs.factor b/extra/help/help-docs.factor index f20ce89263..ce5ca52fc7 100755 --- a/extra/help/help-docs.factor +++ b/extra/help/help-docs.factor @@ -1,5 +1,5 @@ USING: help.markup help.crossref help.stylesheet help.topics -help.syntax definitions io prettyprint inspector arrays math +help.syntax definitions io prettyprint summary arrays math sequences vocabs ; IN: help diff --git a/extra/help/topics/topics.factor b/extra/help/topics/topics.factor index afdae38c5a..6ad3b23c2c 100755 --- a/extra/help/topics/topics.factor +++ b/extra/help/topics/topics.factor @@ -2,7 +2,7 @@ ! See http://factorcode.org/license.txt for BSD license.x USING: arrays definitions generic assocs io kernel namespaces prettyprint prettyprint.sections -sequences words inspector classes strings vocabs ; +sequences words summary classes strings vocabs ; IN: help.topics TUPLE: link name ; diff --git a/extra/http/client/client.factor b/extra/http/client/client.factor index 0b9224f171..03024182b0 100755 --- a/extra/http/client/client.factor +++ b/extra/http/client/client.factor @@ -9,7 +9,7 @@ io.encodings.ascii io.encodings.8-bit io.encodings.binary io.streams.duplex -fry debugger inspector ascii urls present ; +fry debugger summary ascii urls present ; IN: http.client : max-redirects 10 ; diff --git a/extra/inverse/inverse.factor b/extra/inverse/inverse.factor index 97d4ae9b3b..4a35fbab24 100755 --- a/extra/inverse/inverse.factor +++ b/extra/inverse/inverse.factor @@ -1,6 +1,6 @@ ! Copyright (C) 2007, 2008 Daniel Ehrenberg. ! See http://factorcode.org/license.txt for BSD license. -USING: accessors kernel words inspector slots quotations +USING: accessors kernel words summary slots quotations sequences assocs math arrays inference effects shuffle continuations debugger classes.tuple namespaces vectors bit-arrays byte-arrays strings sbufs math.functions macros diff --git a/extra/io/encodings/strict/strict.factor b/extra/io/encodings/strict/strict.factor index 21eb231075..3288de601d 100644 --- a/extra/io/encodings/strict/strict.factor +++ b/extra/io/encodings/strict/strict.factor @@ -1,6 +1,6 @@ ! Copyright (C) 2008 Daniel Ehrenberg ! See http://factorcode.org/license.txt for BSD license. -USING: io.encodings kernel accessors inspector ; +USING: io.encodings kernel accessors summary ; IN: io.encodings.strict TUPLE: strict code ; diff --git a/extra/io/launcher/launcher.factor b/extra/io/launcher/launcher.factor index bd90072039..2b3cdff06e 100755 --- a/extra/io/launcher/launcher.factor +++ b/extra/io/launcher/launcher.factor @@ -2,9 +2,9 @@ ! See http://factorcode.org/license.txt for BSD license. USING: system kernel namespaces strings hashtables sequences assocs combinators vocabs.loader init threads continuations -math accessors concurrency.flags destructors +math accessors concurrency.flags destructors inspector io io.backend io.timeouts io.pipes io.pipes.private io.encodings -io.streams.duplex io.ports debugger prettyprint inspector ; +io.streams.duplex io.ports debugger prettyprint summary ; IN: io.launcher TUPLE: process < identity-tuple diff --git a/extra/io/ports/ports.factor b/extra/io/ports/ports.factor index 3aea311336..77e984e6e5 100755 --- a/extra/io/ports/ports.factor +++ b/extra/io/ports/ports.factor @@ -3,7 +3,7 @@ USING: math kernel io sequences io.buffers io.timeouts generic byte-vectors system io.encodings math.order io.backend continuations debugger classes byte-arrays namespaces splitting -grouping dlists assocs io.encodings.binary inspector accessors +grouping dlists assocs io.encodings.binary summary accessors destructors ; IN: io.ports diff --git a/extra/io/sockets/secure/secure.factor b/extra/io/sockets/secure/secure.factor index 10aec22ee5..fa4d786f7c 100644 --- a/extra/io/sockets/secure/secure.factor +++ b/extra/io/sockets/secure/secure.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: accessors kernel symbols namespaces continuations -destructors io.sockets sequences inspector calendar delegate ; +destructors io.sockets sequences summary calendar delegate ; IN: io.sockets.secure SYMBOL: secure-socket-timeout diff --git a/extra/io/sockets/sockets.factor b/extra/io/sockets/sockets.factor index a9278c8357..35420948a8 100755 --- a/extra/io/sockets/sockets.factor +++ b/extra/io/sockets/sockets.factor @@ -6,7 +6,7 @@ sequences arrays io.encodings io.ports io.streams.duplex io.encodings.ascii alien.strings io.binary accessors destructors classes debugger byte-arrays system combinators parser alien.c-types math.parser splitting grouping -math assocs inspector ; +math assocs summary ; IN: io.sockets << { diff --git a/extra/io/streams/duplex/duplex.factor b/extra/io/streams/duplex/duplex.factor index 51b4b8d860..6f3be15016 100755 --- a/extra/io/streams/duplex/duplex.factor +++ b/extra/io/streams/duplex/duplex.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2005, 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: kernel continuations destructors io io.encodings -io.encodings.private io.timeouts debugger inspector listener +io.encodings.private io.timeouts debugger summary listener accessors delegate delegate.protocols ; IN: io.streams.duplex diff --git a/extra/io/unix/backend/backend.factor b/extra/io/unix/backend/backend.factor index 8e76be2632..5dcfea37b3 100755 --- a/extra/io/unix/backend/backend.factor +++ b/extra/io/unix/backend/backend.factor @@ -4,7 +4,7 @@ USING: alien generic assocs kernel kernel.private math io.ports sequences strings structs sbufs threads unix vectors io.buffers io.backend io.encodings math.parser continuations system libc qualified namespaces io.timeouts -io.encodings.utf8 destructors accessors inspector combinators ; +io.encodings.utf8 destructors accessors summary combinators ; QUALIFIED: io IN: io.unix.backend diff --git a/extra/io/unix/sockets/secure/secure.factor b/extra/io/unix/sockets/secure/secure.factor index a0acbebb3a..a8adedf25a 100755 --- a/extra/io/unix/sockets/secure/secure.factor +++ b/extra/io/unix/sockets/secure/secure.factor @@ -6,7 +6,7 @@ continuations destructors openssl openssl.libcrypto openssl.libssl io.files io.ports io.unix.backend io.unix.sockets io.encodings.ascii io.buffers io.sockets io.sockets.secure -io.timeouts system inspector ; +io.timeouts system summary ; IN: io.unix.sockets.secure M: ssl-handle handle-fd file>> handle-fd ; diff --git a/extra/lisp/lisp.factor b/extra/lisp/lisp.factor index 109083de37..1dd285ed7c 100644 --- a/extra/lisp/lisp.factor +++ b/extra/lisp/lisp.factor @@ -3,7 +3,7 @@ USING: kernel peg sequences arrays strings combinators.lib namespaces combinators math locals locals.private locals.backend accessors vectors syntax lisp.parser assocs parser sequences.lib words -quotations fry lists inspector combinators.short-circuit ; +quotations fry lists summary combinators.short-circuit ; IN: lisp DEFER: convert-form diff --git a/extra/maze/deploy.factor b/extra/maze/deploy.factor index 321a30d5b2..685ed71e8d 100755 --- a/extra/maze/deploy.factor +++ b/extra/maze/deploy.factor @@ -1,12 +1,15 @@ USING: tools.deploy.config ; -V{ +H{ + { deploy-name "Maze" } + { deploy-word-props? f } { deploy-ui? t } - { deploy-io 1 } - { deploy-reflection 1 } + { deploy-c-types? f } { deploy-compiler? t } + { deploy-io 1 } + { deploy-random? t } + { deploy-word-defs? f } { deploy-math? t } - { deploy-word-props? f } - { deploy-c-types? f } { "stop-after-last-window?" t } - { deploy-name "Maze" } + { deploy-reflection 1 } + { deploy-threads? t } } diff --git a/extra/openssl/openssl.factor b/extra/openssl/openssl.factor index 6d750bd8e0..284e42cd1b 100755 --- a/extra/openssl/openssl.factor +++ b/extra/openssl/openssl.factor @@ -2,7 +2,7 @@ ! See http://factorcode.org/license.txt for BSD license. USING: accessors byte-arrays kernel debugger sequences namespaces math math.order combinators init alien alien.c-types alien.strings libc -continuations destructors debugger inspector splitting assocs +continuations destructors debugger summary splitting assocs random math.parser locals unicode.case openssl.libcrypto openssl.libssl io.backend io.ports io.files io.encodings.8-bit io.sockets.secure diff --git a/extra/random/random.factor b/extra/random/random.factor index b4b6ad9aff..74b7a78723 100755 --- a/extra/random/random.factor +++ b/extra/random/random.factor @@ -2,7 +2,7 @@ ! See http://factorcode.org/license.txt for BSD license. USING: alien.c-types kernel math namespaces sequences io.backend io.binary combinators system vocabs.loader -inspector ; +summary ; IN: random SYMBOL: system-random-generator diff --git a/extra/state-parser/state-parser.factor b/extra/state-parser/state-parser.factor index 1feaf46017..0aec1280de 100644 --- a/extra/state-parser/state-parser.factor +++ b/extra/state-parser/state-parser.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2005, 2006 Daniel Ehrenberg ! See http://factorcode.org/license.txt for BSD license. USING: io io.streams.string kernel math namespaces sequences -strings circular prettyprint debugger ascii sbufs fry inspector +strings circular prettyprint debugger ascii sbufs fry summary accessors sequences.lib ; IN: state-parser diff --git a/extra/tar/tar.factor b/extra/tar/tar.factor index 644cf9aa72..28913d7141 100755 --- a/extra/tar/tar.factor +++ b/extra/tar/tar.factor @@ -1,6 +1,6 @@ USING: combinators io io.files io.streams.string kernel math math.parser continuations namespaces pack prettyprint sequences -strings system hexdump io.encodings.binary inspector accessors +strings system hexdump io.encodings.binary summary accessors io.backend symbols byte-arrays ; IN: tar diff --git a/extra/tools/annotations/annotations.factor b/extra/tools/annotations/annotations.factor index 6f2ca1377a..023993c435 100755 --- a/extra/tools/annotations/annotations.factor +++ b/extra/tools/annotations/annotations.factor @@ -1,8 +1,9 @@ ! Copyright (C) 2005, 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: accessors kernel words parser io inspector quotations +USING: accessors kernel words parser io summary quotations sequences prettyprint continuations effects definitions -compiler.units namespaces assocs tools.walker generic ; +compiler.units namespaces assocs tools.walker generic +inspector ; IN: tools.annotations GENERIC: reset ( word -- ) diff --git a/extra/tools/crossref/crossref.factor b/extra/tools/crossref/crossref.factor index 604e20f9b1..c4b046eccc 100755 --- a/extra/tools/crossref/crossref.factor +++ b/extra/tools/crossref/crossref.factor @@ -2,7 +2,7 @@ ! See http://factorcode.org/license.txt for BSD license. USING: accessors arrays definitions assocs io kernel math namespaces prettyprint sequences strings io.styles words -generic tools.completion quotations parser inspector +generic tools.completion quotations parser summary sorting hashtables vocabs parser source-files ; IN: tools.crossref diff --git a/extra/tools/deploy/backend/backend.factor b/extra/tools/deploy/backend/backend.factor index 8973b2ea2a..7559b44832 100755 --- a/extra/tools/deploy/backend/backend.factor +++ b/extra/tools/deploy/backend/backend.factor @@ -3,7 +3,7 @@ USING: namespaces continuations.private kernel.private init assocs kernel vocabs words sequences memory io system arrays continuations math definitions mirrors splitting parser classes -inspector layouts vocabs.loader prettyprint.config prettyprint +summary layouts vocabs.loader prettyprint.config prettyprint debugger io.streams.c io.files io.backend quotations io.launcher words.private tools.deploy.config bootstrap.image io.encodings.utf8 destructors accessors ; diff --git a/extra/tools/deploy/shaker/shaker.factor b/extra/tools/deploy/shaker/shaker.factor index ba37784b11..ade49a26f4 100755 --- a/extra/tools/deploy/shaker/shaker.factor +++ b/extra/tools/deploy/shaker/shaker.factor @@ -13,7 +13,6 @@ QUALIFIED: compiler.units QUALIFIED: continuations QUALIFIED: definitions QUALIFIED: init -QUALIFIED: inspector QUALIFIED: io.backend QUALIFIED: io.thread QUALIFIED: layouts @@ -155,6 +154,8 @@ IN: tools.deploy.shaker [ "callbacks" "alien.compiler" lookup , + "inspector-hook" "inspector" lookup , + { bootstrap.stage2:bootstrap-time continuations:error @@ -163,7 +164,6 @@ IN: tools.deploy.shaker continuations:restarts listener:error-hook init:init-hooks - inspector:inspector-hook io.thread:io-thread libc.private:mallocs source-files:source-files diff --git a/extra/tools/test/test.factor b/extra/tools/test/test.factor index 8ef80c6add..abbf5e5ab9 100755 --- a/extra/tools/test/test.factor +++ b/extra/tools/test/test.factor @@ -3,7 +3,7 @@ USING: namespaces arrays prettyprint sequences kernel vectors quotations words parser assocs combinators continuations debugger io io.files vocabs -vocabs.loader source-files compiler.units inspector +vocabs.loader source-files compiler.units summary inference effects tools.vocabs ; IN: tools.test diff --git a/extra/tools/vocabs/browser/browser.factor b/extra/tools/vocabs/browser/browser.factor index b3fe97f908..afbb936df1 100755 --- a/extra/tools/vocabs/browser/browser.factor +++ b/extra/tools/vocabs/browser/browser.factor @@ -3,7 +3,7 @@ USING: accessors kernel combinators vocabs vocabs.loader tools.vocabs io io.files io.styles help.markup help.stylesheet sequences assocs help.topics namespaces prettyprint words -sorting definitions arrays inspector sets ; +sorting definitions arrays summary sets ; IN: tools.vocabs.browser : vocab-status-string ( vocab -- string ) diff --git a/extra/tools/vocabs/vocabs.factor b/extra/tools/vocabs/vocabs.factor index 63fcff7f6a..34bd3c81c8 100755 --- a/extra/tools/vocabs/vocabs.factor +++ b/extra/tools/vocabs/vocabs.factor @@ -2,7 +2,7 @@ ! See http://factorcode.org/license.txt for BSD license. USING: io.files kernel io.encodings.utf8 vocabs.loader vocabs sequences namespaces math.parser arrays hashtables assocs -memoize inspector sorting splitting combinators source-files +memoize summary sorting splitting combinators source-files io debugger continuations compiler.errors init checksums checksums.crc32 sets ; IN: tools.vocabs diff --git a/extra/ui/gadgets/panes/panes-tests.factor b/extra/ui/gadgets/panes/panes-tests.factor index 31bb4233bf..41218df425 100755 --- a/extra/ui/gadgets/panes/panes-tests.factor +++ b/extra/ui/gadgets/panes/panes-tests.factor @@ -2,7 +2,7 @@ IN: ui.gadgets.panes.tests USING: alien ui.gadgets.panes ui.gadgets namespaces kernel sequences io io.styles io.streams.string tools.test prettyprint definitions help help.syntax help.markup -help.stylesheet splitting tools.test.ui models math inspector ; +help.stylesheet splitting tools.test.ui models math summary ; : #children "pane" get gadget-children length ; diff --git a/extra/ui/gadgets/presentations/presentations-docs.factor b/extra/ui/gadgets/presentations/presentations-docs.factor index f226df5c2a..db057d3094 100755 --- a/extra/ui/gadgets/presentations/presentations-docs.factor +++ b/extra/ui/gadgets/presentations/presentations-docs.factor @@ -1,5 +1,5 @@ USING: help.markup help.syntax ui.gadgets.buttons -ui.gadgets.menus models ui.operations inspector kernel +ui.gadgets.menus models ui.operations summary kernel ui.gadgets.worlds ui.gadgets ; IN: ui.gadgets.presentations diff --git a/extra/ui/gadgets/worlds/worlds.factor b/extra/ui/gadgets/worlds/worlds.factor index 4d2f31cda5..c843e06774 100755 --- a/extra/ui/gadgets/worlds/worlds.factor +++ b/extra/ui/gadgets/worlds/worlds.factor @@ -2,7 +2,7 @@ ! See http://factorcode.org/license.txt for BSD license. USING: arrays assocs continuations kernel math models namespaces opengl sequences io combinators math.vectors -ui.gadgets ui.gestures ui.render ui.backend inspector +ui.gadgets ui.gestures ui.render ui.backend summary debugger ; IN: ui.gadgets.worlds diff --git a/extra/ui/gestures/gestures.factor b/extra/ui/gestures/gestures.factor index 2d696788f2..66cebd5663 100755 --- a/extra/ui/gestures/gestures.factor +++ b/extra/ui/gestures/gestures.factor @@ -54,7 +54,7 @@ TUPLE: zoom-in-action ; C: zoom-in-action TUPLE: zoom-out-action ; C: zoom-out-action : generalize-gesture ( gesture -- newgesture ) - tuple>array but-last >tuple ; + clone f >># ; ! Modifiers SYMBOLS: C+ A+ M+ S+ ; diff --git a/extra/ui/tools/operations/operations.factor b/extra/ui/tools/operations/operations.factor index 558a56f92a..672320ff17 100755 --- a/extra/ui/tools/operations/operations.factor +++ b/extra/ui/tools/operations/operations.factor @@ -3,7 +3,7 @@ USING: continuations definitions ui.tools.browser ui.tools.interactor ui.tools.listener ui.tools.profiler ui.tools.search ui.tools.traceback ui.tools.workspace generic -help.topics inference inspector io.files io.styles kernel +help.topics inference summary inspector io.files io.styles kernel namespaces parser prettyprint quotations tools.annotations editors tools.profiler tools.test tools.time tools.walker ui.commands ui.gadgets.editors ui.gestures ui.operations diff --git a/extra/ui/tools/tools-docs.factor b/extra/ui/tools/tools-docs.factor index 4a8e1ddf4a..387f9742f0 100755 --- a/extra/ui/tools/tools-docs.factor +++ b/extra/ui/tools/tools-docs.factor @@ -1,4 +1,4 @@ -USING: editors help.markup help.syntax inspector io listener +USING: editors help.markup help.syntax summary inspector io listener parser prettyprint tools.profiler tools.walker ui.commands ui.gadgets.editors ui.gadgets.panes ui.gadgets.presentations ui.gadgets.slots ui.operations ui.tools.browser diff --git a/extra/units/units.factor b/extra/units/units.factor index f7330c1432..8f55c96609 100755 --- a/extra/units/units.factor +++ b/extra/units/units.factor @@ -1,5 +1,5 @@ USING: arrays io kernel math namespaces splitting prettyprint -sequences sorting vectors words inverse inspector shuffle +sequences sorting vectors words inverse summary shuffle math.functions sets ; IN: units diff --git a/extra/usa-cities/usa-cities.factor b/extra/usa-cities/usa-cities.factor index 1fb0b83393..fb392542f3 100644 --- a/extra/usa-cities/usa-cities.factor +++ b/extra/usa-cities/usa-cities.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: io.files io.encodings.ascii sequences sequences.lib -math.parser combinators kernel memoize csv symbols inspector +math.parser combinators kernel memoize csv symbols summary words accessors math.order sorting ; IN: usa-cities diff --git a/extra/xml/errors/errors.factor b/extra/xml/errors/errors.factor index 58c27cabe7..1ef26883e3 100644 --- a/extra/xml/errors/errors.factor +++ b/extra/xml/errors/errors.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2005, 2006 Daniel Ehrenberg ! See http://factorcode.org/license.txt for BSD license. USING: xml.data xml.writer kernel generic io prettyprint math -debugger sequences state-parser accessors inspector +debugger sequences state-parser accessors summary namespaces io.streams.string xml.backend ; IN: xml.errors -- 2.34.1