diff options
author | dos-reis <gdr@axiomatics.org> | 2008-05-16 01:46:51 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-05-16 01:46:51 +0000 |
commit | af0bdf26f78dfbf301870ceeb60739426b9db127 (patch) | |
tree | ccf039ab9aa584efdbff550472faf2a387986bd6 /src/interp/lisplib.boot | |
parent | 5d9bba2fab5a65886fc22464aa23f270532d44ba (diff) | |
download | open-axiom-af0bdf26f78dfbf301870ceeb60739426b9db127.tar.gz |
* interp/lisplib.boot (leaveIfErrors): Take constructor name
parameter.
(finalizeLisplib): Adjust call.
(compDefineLisplib): Likewise.
Diffstat (limited to 'src/interp/lisplib.boot')
-rw-r--r-- | src/interp/lisplib.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 2176e394..1a3f911b 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -365,7 +365,7 @@ compDefineLisplib(df:=["DEF",[op,:.],:.],m,e,prefix,fal,fn) == ok := false; UNWIND_-PROTECT( PROGN(res:= FUNCALL(fn,df,m,e,prefix,fal), - leaveIfErrors(), + leaveIfErrors(libName), sayMSG ['" finalizing ",$spadLibFT,:bright libName], ok := finalizeLisplib libName), RSHUT $libFile) @@ -422,9 +422,9 @@ initializeLisplib libName == ++ If compilation produces an error, issue inform user and ++ return to toplevel reader. -leaveIfErrors() == +leaveIfErrors libName == errorCount() ^=0 => - sayMSG ['" Errors in processing ",kind,'" ",:bright libName,'":"] + sayMSG ['" Errors in processing ",$liplibkind,'" ",:bright libName,'":"] sayMSG ['" not replacing ",$spadLibFT,'" for",:bright libName] spadThrow() @@ -463,7 +463,7 @@ finalizeLisplib libName == if $profileCompiler then profileWrite() if $lisplibForm and null CDR $lisplibForm then MAKEPROP(CAR $lisplibForm,'NILADIC,'T) - leaveIfErrors() + leaveIfErrors libName true lisplibDoRename(libName) == |