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

db4
Slava Pestov 2009-03-04 21:38:05 -06:00
parent e06b618244
commit 74573c65f5
1 changed files with 1 additions and 1 deletions

View File

@ -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