Hopefully fix stack effects of error hooks to throw when required.

[factor.git] / core / continuations / continuations.factor

diff --git a/core/continuations/continuations.factor b/core/continuations/continuations.factor
index 220cef3e8ddb303109b3b6bbed77964847c929ab..dbe645b82886699e5ef52694ef42b1fc0fbad2a2 100644 (file)
--- a/core/continuations/continuations.factor
+++ b/core/continuations/continuations.factor
@@ -117,18 +117,18 @@ PRIVATE>
 
 GENERIC: error-in-thread ( error thread -- * )
 
-SYMBOL: thread-error-hook ! ( error thread -- )
+SYMBOL: thread-error-hook ! ( error thread -- * )
 
-thread-error-hook [ [ die ] ] initialize
+thread-error-hook [ [ die drop throw ] ] initialize
 
-M: object error-in-thread ( error thread -- * )
+M: object error-in-thread
     thread-error-hook get-global call( error thread -- * ) ;
 
 : in-callback? ( -- ? ) CONTEXT-OBJ-IN-CALLBACK-P context-object ;
 
 SYMBOL: callback-error-hook ! ( error -- * )
 
-callback-error-hook [ [ die ] ] initialize
+callback-error-hook [ [ die throw ] ] initialize
 
 : rethrow ( error -- * )
     dup save-error