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 ;
[ 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
! 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
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
! 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
M: object error. . ;
M: object error-help drop f ;
-M: tuple error. describe ;
M: tuple error-help class ;
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 ;
! 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
! 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 ;
: single-next-method-quot ( class generic -- quot )
[
- [ drop [ instance? ] curry % ]
+ [ drop "predicate" word-prop % ]
[
2dup next-method
[ 2nip 1quotation ]
! 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 ;
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
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
{ $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"
} }
{ $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." } ;
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
: 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 ;
: .vars ( -- )
namestack namestack. ;
+: :vars ( -- )
+ error-continuation get continuation-name namestack. ;
+
SYMBOL: inspector-hook
[ H{ { +number-rows+ t } } describe* ] inspector-hook set-global
! 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
! 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
: 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 ;
[ 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.
#! 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 [
] 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
! 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
! 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 ;
! 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
--- /dev/null
+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"
--- /dev/null
+! 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 ;
! 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
-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
USING: vocabs.loader sequences ;
{
+ "inspector"
"bootstrap.image"
"tools.annotations"
"tools.crossref"
! 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
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 )
USING: words kernel sequences combinators.lib locals\r
locals.private accessors parser namespaces continuations\r
-inspector definitions arrays.lib arrays ;\r
+summary definitions arrays.lib arrays ;\r
IN: descriptive\r
\r
ERROR: descriptive-error args underlying word ;\r
! 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
! 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 ;
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 }
}
! 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 )
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
! 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 ;
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 ;
! 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
! 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 ;
! 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
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
! 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
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
<< {
! 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
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
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 ;
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
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 }
}
! 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
! 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
! Copyright (C) 2005, 2006 Daniel Ehrenberg\r
! See http://factorcode.org/license.txt for BSD license.\r
USING: io io.streams.string kernel math namespaces sequences\r
-strings circular prettyprint debugger ascii sbufs fry inspector\r
+strings circular prettyprint debugger ascii sbufs fry summary\r
accessors sequences.lib ;\r
IN: state-parser\r
\r
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
! 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 -- )
! 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
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 ;
QUALIFIED: continuations
QUALIFIED: definitions
QUALIFIED: init
-QUALIFIED: inspector
QUALIFIED: io.backend
QUALIFIED: io.thread
QUALIFIED: layouts
[
"callbacks" "alien.compiler" lookup ,
+ "inspector-hook" "inspector" lookup ,
+
{
bootstrap.stage2:bootstrap-time
continuations:error
continuations:restarts
listener:error-hook
init:init-hooks
- inspector:inspector-hook
io.thread:io-thread
libc.private:mallocs
source-files:source-files
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
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 )
! See http://factorcode.org/license.txt for BSD license.\r
USING: io.files kernel io.encodings.utf8 vocabs.loader vocabs\r
sequences namespaces math.parser arrays hashtables assocs\r
-memoize inspector sorting splitting combinators source-files\r
+memoize summary sorting splitting combinators source-files\r
io debugger continuations compiler.errors init\r
checksums checksums.crc32 sets ;\r
IN: tools.vocabs\r
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 ;
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
! 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
TUPLE: zoom-out-action ; C: <zoom-out-action> zoom-out-action
: generalize-gesture ( gesture -- newgesture )
- tuple>array but-last >tuple ;
+ clone f >># ;
! Modifiers
SYMBOLS: C+ A+ M+ S+ ;
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
-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
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
! 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
! 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