diff options
Diffstat (limited to 'src/interp/int-top.boot')
-rw-r--r-- | src/interp/int-top.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/int-top.boot b/src/interp/int-top.boot index 000c96fe..0c1c6a0b 100644 --- a/src/interp/int-top.boot +++ b/src/interp/int-top.boot @@ -408,7 +408,7 @@ ncConversationPhase(fn, args) == $ncMsgList: local := [] $convPhase: local := 'NoPhase - UNWIND_-PROTECT( apply(fn, args), wrapup(carrier) ) where + (try apply(fn, args); finally wrapup(carrier)) where wrapup(carrier) == for m in $ncMsgList repeat ncPutQ(carrier, 'messages, [m, :ncEltQ(carrier, 'messages)]) |