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

Remove redundant tools.walker vocab

db4
Slava Pestov 2007-12-31 23:16:21 -04:00
parent 6922bded81
commit e3af94cfbd
8 changed files with 9 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/bootstrap/tools/tools.factor
View File

@ -9,6 +9,5 @@ USING: vocabs.loader sequences ;
"tools.profiler" "tools.profiler"
"tools.test" "tools.test"
"tools.time" "tools.time"
"tools.walker"
"editors" "editors"
} [ require ] each } [ require ] each

14
extra/tools/interpreter/interpreter.factor Normal file → Executable file
View File

@ -6,6 +6,8 @@ kernel.private math namespaces namespaces.private prettyprint
quotations sequences splitting strings threads vectors words ; quotations sequences splitting strings threads vectors words ;
IN: tools.interpreter IN: tools.interpreter
: walk ( quot -- ) \ break add* call ;
TUPLE: interpreter continuation ; TUPLE: interpreter continuation ;
: <interpreter> interpreter construct-empty ; : <interpreter> interpreter construct-empty ;
@ -30,19 +32,17 @@ M: pair restore
<PRIVATE <PRIVATE
: (step-into-call) \ break add* call ; : (step-into-if) ? walk ;
: (step-into-if) ? (step-into-call) ;
: (step-into-dispatch) : (step-into-dispatch)
nth (step-into-call) ; nth walk ;
: (step-into-execute) ( word -- ) : (step-into-execute) ( word -- )
dup "step-into" word-prop [ dup "step-into" word-prop [
call call
] [ ] [
dup compound? [ dup compound? [
word-def (step-into-call) word-def walk
] [ ] [
execute break execute break
] if ] if
@ -54,8 +54,8 @@ M: pair restore
M: word (step-into) (step-into-execute) ; M: word (step-into) (step-into-execute) ;
{ {
{ call [ (step-into-call) ] } { call [ walk ] }
{ (throw) [ (step-into-call) ] } { (throw) [ walk ] }
{ execute [ (step-into-execute) ] } { execute [ (step-into-execute) ] }
{ if [ (step-into-if) ] } { if [ (step-into-if) ] }
{ dispatch [ (step-into-dispatch) ] } { dispatch [ (step-into-dispatch) ] }

1
extra/tools/walker/authors.txt
View File

@ -1 +0,0 @@
Slava Pestov

1
extra/tools/walker/summary.txt
View File

@ -1 +0,0 @@
Single-stepper breakpoint hook

1
extra/tools/walker/tags.txt
View File

@ -1 +0,0 @@
tools

6
extra/tools/walker/walker.factor
View File

@ -1,6 +0,0 @@
! Copyright (C) 2007 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
IN: tools.walker
USING: kernel sequences continuations ;
: walk ( quot -- ) \ break add* call ;

2
extra/ui/tools/operations/operations.factor
View File

@ -5,7 +5,7 @@ ui.tools.interactor ui.tools.listener ui.tools.profiler
ui.tools.search ui.tools.traceback ui.tools.workspace generic ui.tools.search ui.tools.traceback ui.tools.workspace generic
help.topics inference inspector io.files io.styles kernel help.topics inference inspector io.files io.styles kernel
namespaces parser prettyprint quotations tools.annotations namespaces parser prettyprint quotations tools.annotations
editors tools.profiler tools.test tools.time tools.walker editors tools.profiler tools.test tools.time tools.interpreter
ui.commands ui.gadgets.editors ui.gestures ui.operations ui.commands ui.gadgets.editors ui.gestures ui.operations
ui.tools.deploy vocabs vocabs.loader words sequences ui.tools.deploy vocabs vocabs.loader words sequences
tools.browser classes ; tools.browser classes ;

2
extra/ui/tools/tools-docs.factor Normal file → Executable file
View File

@ -1,5 +1,5 @@
USING: editors help.markup help.syntax inspector io listener USING: editors help.markup help.syntax inspector io listener
parser prettyprint tools.profiler tools.walker ui.commands parser prettyprint tools.profiler tools.interpreter ui.commands
ui.gadgets.editors ui.gadgets.panes ui.gadgets.presentations ui.gadgets.editors ui.gadgets.panes ui.gadgets.presentations
ui.gadgets.slots ui.operations ui.tools.browser ui.gadgets.slots ui.operations ui.tools.browser
ui.tools.interactor ui.tools.listener ui.tools.operations ui.tools.interactor ui.tools.listener ui.tools.operations