Remove redundant tools.walker vocab
parent
6922bded81
commit
e3af94cfbd
|
@ -9,6 +9,5 @@ USING: vocabs.loader sequences ;
|
|||
"tools.profiler"
|
||||
"tools.test"
|
||||
"tools.time"
|
||||
"tools.walker"
|
||||
"editors"
|
||||
} [ require ] each
|
||||
|
|
|
@ -6,6 +6,8 @@ kernel.private math namespaces namespaces.private prettyprint
|
|||
quotations sequences splitting strings threads vectors words ;
|
||||
IN: tools.interpreter
|
||||
|
||||
: walk ( quot -- ) \ break add* call ;
|
||||
|
||||
TUPLE: interpreter continuation ;
|
||||
|
||||
: <interpreter> interpreter construct-empty ;
|
||||
|
@ -30,19 +32,17 @@ M: pair restore
|
|||
|
||||
<PRIVATE
|
||||
|
||||
: (step-into-call) \ break add* call ;
|
||||
|
||||
: (step-into-if) ? (step-into-call) ;
|
||||
: (step-into-if) ? walk ;
|
||||
|
||||
: (step-into-dispatch)
|
||||
nth (step-into-call) ;
|
||||
nth walk ;
|
||||
|
||||
: (step-into-execute) ( word -- )
|
||||
dup "step-into" word-prop [
|
||||
call
|
||||
] [
|
||||
dup compound? [
|
||||
word-def (step-into-call)
|
||||
word-def walk
|
||||
] [
|
||||
execute break
|
||||
] if
|
||||
|
@ -54,8 +54,8 @@ M: pair restore
|
|||
M: word (step-into) (step-into-execute) ;
|
||||
|
||||
{
|
||||
{ call [ (step-into-call) ] }
|
||||
{ (throw) [ (step-into-call) ] }
|
||||
{ call [ walk ] }
|
||||
{ (throw) [ walk ] }
|
||||
{ execute [ (step-into-execute) ] }
|
||||
{ if [ (step-into-if) ] }
|
||||
{ dispatch [ (step-into-dispatch) ] }
|
||||
|
|
|
@ -1 +0,0 @@
|
|||
Slava Pestov
|
|
@ -1 +0,0 @@
|
|||
Single-stepper breakpoint hook
|
|
@ -1 +0,0 @@
|
|||
tools
|
|
@ -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 ;
|
|
@ -5,7 +5,7 @@ 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
|
||||
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.tools.deploy vocabs vocabs.loader words sequences
|
||||
tools.browser classes ;
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
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.slots ui.operations ui.tools.browser
|
||||
ui.tools.interactor ui.tools.listener ui.tools.operations
|
||||
|
|
Loading…
Reference in New Issue