diff options
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 |