Fixing interactor (temporarily)
parent
2b37b76d65
commit
75695563ca
|
@ -6,4 +6,4 @@ HELP: interactor
|
|||
$nl
|
||||
"Interactors are created by calling " { $link <interactor> } "."
|
||||
$nl
|
||||
"Interactors implement the " { $link stream-readln } ", " { $link stream-read } " and " { $link parse-interactive } " generic words." } ;
|
||||
"Interactors implement the " { $link stream-readln } ", " { $link stream-read } " and " { $link read-quot } " generic words." } ;
|
||||
|
|
|
@ -3,9 +3,9 @@
|
|||
USING: arrays assocs combinators continuations documents
|
||||
ui.tools.workspace hashtables io io.styles kernel math
|
||||
math.vectors models namespaces parser prettyprint quotations
|
||||
sequences strings threads listener tuples ui.commands
|
||||
ui.gadgets ui.gadgets.editors
|
||||
ui.gadgets.presentations ui.gadgets.worlds ui.gestures ;
|
||||
sequences strings threads listener tuples ui.commands ui.gadgets
|
||||
ui.gadgets.editors ui.gadgets.presentations ui.gadgets.worlds
|
||||
ui.gestures definitions ;
|
||||
IN: ui.tools.interactor
|
||||
|
||||
TUPLE: interactor
|
||||
|
@ -129,7 +129,7 @@ M: interactor stream-read-partial
|
|||
: try-parse ( str interactor -- quot/error/f )
|
||||
[
|
||||
[
|
||||
[ restore-vars parse ] keep save-vars
|
||||
[ restore-vars [ parse ] with-compilation-unit ] keep save-vars
|
||||
] [
|
||||
>r f swap set-interactor-busy? drop r>
|
||||
dup delegate unexpected-eof? [ drop f ] when
|
||||
|
@ -143,7 +143,7 @@ M: interactor stream-read-partial
|
|||
{ [ t ] [ handle-parse-error ] }
|
||||
} cond ;
|
||||
|
||||
M: interactor parse-interactive
|
||||
M: interactor stream-read-quot
|
||||
[ save-vars ] keep
|
||||
[ [ handle-interactive ] interactor-yield ] keep
|
||||
restore-vars ;
|
||||
|
|
|
@ -6,7 +6,7 @@ kernel models namespaces parser quotations sequences ui.commands
|
|||
ui.gadgets ui.gadgets.editors ui.gadgets.labelled
|
||||
ui.gadgets.panes ui.gadgets.buttons ui.gadgets.scrollers
|
||||
ui.gadgets.tracks ui.gestures ui.operations vocabs words
|
||||
prettyprint listener debugger threads generator ;
|
||||
prettyprint listener debugger threads compiler ;
|
||||
IN: ui.tools.listener
|
||||
|
||||
TUPLE: listener-gadget input output stack ;
|
||||
|
|
Loading…
Reference in New Issue