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

8 lines
254 B
Factor

USING: namespaces tools.deploy.config fry sequences system kernel ui ui.gadgets.worlds ;
deploy-name get "Factor" or '[
_ " encountered an unhandled error." append
"The application will now exit."
system-alert die
] ui-error-hook set-global