make-restart-hook-quot ( error interactor -- quot )

Vocabulary

ui.tools.listener

Inputs

error	an object
interactor	an object

Outputs

quot

an object

Definition

USING: kernel ui.gadgets.glass ;

IN: ui.tools.listener

: make-restart-hook-quot ( error interactor -- quot )
    over [ recall-lexer-error ] 2curry
    [ [ [ dup hide-glass ] ] dip [ do-recall? ] curry compose ]
    dip [ when ] curry compose ;