Change a throw to rethrow so that we don't lose the original stack trace

2009-03-04 21:38:05 -06:00 · 2009-03-04 21:38:05 -06:00 · 74573c65f5
parent e06b618244
commit 74573c65f5
1 changed files with 1 additions and 1 deletions
--- a/basis/stack-checker/backend/backend.factor
+++ b/basis/stack-checker/backend/backend.factor
@ -152,7 +152,7 @@ M: object apply-object push-literal ;
    tri ;

 : cannot-infer-effect ( word -- * )
-    "cannot-infer" word-prop throw ;
+    "cannot-infer" word-prop rethrow ;

 : maybe-cannot-infer ( word quot -- )
    [ [ "cannot-infer" set-word-prop ] keep throw ] recover ; inline