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

View File

@ -9,6 +9,5 @@ USING: vocabs.loader sequences ;
"tools.profiler"
"tools.test"
"tools.time"
"tools.walker"
"editors"
} [ 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 ;
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) ] }

View File

@ -1 +0,0 @@
Slava Pestov

View File

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

View File

@ -1 +0,0 @@
tools

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 ;

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
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 ;

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
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