Change another throw to rethrow in stack checker
parent
7d9389ad9e
commit
21f8ba2917
|
@ -155,7 +155,7 @@ M: object apply-object push-literal ;
|
||||||
"cannot-infer" word-prop rethrow ;
|
"cannot-infer" word-prop rethrow ;
|
||||||
|
|
||||||
: maybe-cannot-infer ( word quot -- )
|
: maybe-cannot-infer ( word quot -- )
|
||||||
[ [ "cannot-infer" set-word-prop ] keep throw ] recover ; inline
|
[ [ "cannot-infer" set-word-prop ] keep rethrow ] recover ; inline
|
||||||
|
|
||||||
: infer-word ( word -- effect )
|
: infer-word ( word -- effect )
|
||||||
[
|
[
|
||||||
|
|
Loading…
Reference in New Issue