USING: combinators kernel quotations ui.gadgets.editors ;

IN: ui.tools.listener

: handle-interactive ( lines interactor -- quot/f ? )
[ nip ] [ try-parse ] 2bi {
{ [ dup quotation? ] [ nip t ] }
{ [ dup not ] [ drop insert-newline f f ] }
[ handle-parse-error f f ]
} cond ;