factor/basis/tools/deploy/shaker/strip-ui-error-hook.factor

13 lines
349 B
Factor

USING: continuations namespaces sequences kernel ui
ui.gadgets.worlds system ;
[
"Error"
"The application encountered an error it cannot recover from and will now exit."
[ system-alert ] ignore-errors
die 1 exit
]
[ ui-error-hook set-global ]
[ callback-error-hook set-global ]
[ [ drop ] prepose thread-error-hook set-global ] tri