From 74573c65f5c1b60f6e2e0b944ac3e387a52a6172 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 4 Mar 2009 21:38:05 -0600 Subject: [PATCH] Change a throw to rethrow so that we don't lose the original stack trace --- basis/stack-checker/backend/backend.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/stack-checker/backend/backend.factor b/basis/stack-checker/backend/backend.factor index 0596f3d0bd..78f357b1cb 100755 --- 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 -- 2.34.1