steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.tools.listener: recall the last command on parse errors

db4
Björn Lindqvist 2015-10-23 17:59:04 +02:00
parent 6809bbe29a
commit f2f7fd0b94
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/ui/tools/listener/listener.factor
View File

@ -5,7 +5,7 @@ combinators.short-circuit concurrency.flags concurrency.mailboxes
continuations destructors documents documents.elements fry hashtables continuations destructors documents documents.elements fry hashtables
help help.markup help.tips io io.styles kernel lexer listener locals help help.markup help.tips io io.styles kernel lexer listener locals
math models models.arrow models.delay namespaces parser prettyprint math models models.arrow models.delay namespaces parser prettyprint
quotations sequences source-files.errors strings system threads sequences source-files.errors strings system threads
tools.errors.model ui ui.commands ui.gadgets ui.gadgets.editors tools.errors.model ui ui.commands ui.gadgets ui.gadgets.editors
ui.gadgets.glass ui.gadgets.labeled ui.gadgets.panes ui.gadgets.glass ui.gadgets.labeled ui.gadgets.panes
ui.gadgets.scrollers ui.gadgets.status-bar ui.gadgets.theme ui.gadgets.scrollers ui.gadgets.status-bar ui.gadgets.theme
@ -325,7 +325,11 @@ M: object accept-completion-hook 2drop ;
over compute-restarts [ hide-glass ] <debugger> over compute-restarts [ hide-glass ] <debugger>
"Error" debugger-color <framed-labeled> ; "Error" debugger-color <framed-labeled> ;
: recall-on-lexer-error ( interactor error -- )
dup lexer-error? [ over recall-previous go-to-error ] [ 2drop ] if ;
: debugger-popup ( interactor error continuation -- ) : debugger-popup ( interactor error continuation -- )
2over recall-on-lexer-error
[ one-line-elt ] 2dip <debugger-popup> show-listener-popup ; [ one-line-elt ] 2dip <debugger-popup> show-listener-popup ;
: try-parse ( lines -- quot/f ) : try-parse ( lines -- quot/f )