SYMBOL: thread-error-hook ! ( error thread -- * )
-thread-error-hook [ [ die drop throw ] ] initialize
+thread-error-hook [ [ die drop rethrow ] ] initialize
M: object error-in-thread
thread-error-hook get-global call( error thread -- * ) ;
SYMBOL: callback-error-hook ! ( error -- * )
-callback-error-hook [ [ die throw ] ] initialize
+callback-error-hook [ [ die rethrow ] ] initialize
: rethrow ( error -- * )
dup save-error