diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-11 23:15:24 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-11 23:15:24 +0000 |
| commit | dd14d434d1d7d06cd90a5a8a0fd1bef6cfffda8f (patch) | |
| tree | 8ace9889673d5e3c8fceaf306b124dd388f216a6 /src/interp/int-top.boot | |
| parent | a07faca18a3f5f7435cfc21f0a66a183d2c0cd05 (diff) | |
| download | open-axiom-dd14d434d1d7d06cd90a5a8a0fd1bef6cfffda8f.tar.gz | |
* interp/i-syscmd.boot: Use try-finally expression instead of Lisp
primitive UNWIND-PROJECT.
* interp/int-top.boot: Likewise.
* interp/lisplib.boot: Likewise.
* interp/server.boot: Likewise.
* boot/parser.boot (bpHandler): Allow semicolon separation.
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)]) |