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/lisplib.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/lisplib.boot')
| -rw-r--r-- | src/interp/lisplib.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 6c774ff5..adb03fe6 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -369,12 +369,12 @@ compDefineLisplib(df:=["DEF",[op,:.],:.],m,e,prefix,fal,fn) == -- finalizeLisplib libName -- following guarantee's compiler output files get closed. ok := false; - UNWIND_-PROTECT( - PROGN(res:= FUNCALL(fn,df,m,e,prefix,fal), - leaveIfErrors(libName), - sayMSG ['" finalizing ",$spadLibFT,:bright libName], - ok := finalizeLisplib libName), - RSHUT $libFile) + try + res:= FUNCALL(fn,df,m,e,prefix,fal) + leaveIfErrors(libName) + sayMSG ['" finalizing ",$spadLibFT,:bright libName] + ok := finalizeLisplib libName + finally RSHUT $libFile if ok then lisplibDoRename(libName) filearg := $FILEP(libName,$spadLibFT,$libraryDirectory) RPACKFILE filearg |