diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-12-01 15:17:09 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-12-01 15:17:09 +0000 |
| commit | 3e5d6ea25b7f3964e40bbcb76437ca637f533691 (patch) | |
| tree | 8ac274eaeb88d539c241515a06fff05025177a55 /src/interp/lisplib.boot | |
| parent | 724d9572783b8c3ecfa8bec2dc4dc19a50255e06 (diff) | |
| download | open-axiom-3e5d6ea25b7f3964e40bbcb76437ca637f533691.tar.gz | |
* interp/define.boot (compDefineCategory): Lose prefix parameter.
It is always nil. Adjust caller.
(compDefineCategory1): Likewise.
(compDefineCategory2): Likewise.
(compDefineFunctor): Likewise.
(compDefineFunctor1): Likewise. Bind it to nil.
* interp/lisplib.boot (compDefineLisplib): Likewise.
Diffstat (limited to 'src/interp/lisplib.boot')
| -rw-r--r-- | src/interp/lisplib.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 50397a50..0efc5509 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -402,7 +402,7 @@ compConLib1(fun,infileOrNil,outfileOrNil,auxOp,editFlag,traceFlag) == val:= _/D_,2_,LIB(fun,infile,outstream,auxOp,editFlag,traceFlag) val -compDefineLisplib(df:=["DEF",[op,:.],:.],m,e,prefix,fal,fn) == +compDefineLisplib(df:=["DEF",[op,:.],:.],m,e,fal,fn) == --fn= compDefineCategory1 OR compDefineFunctor1 sayMSG fillerSpaces(72,char "-") $op: local := op @@ -424,7 +424,7 @@ compDefineLisplib(df:=["DEF",[op,:.],:.],m,e,prefix,fal,fn) == -- following guarantee's compiler output files get closed. ok := false; try - res:= FUNCALL(fn,df,m,e,prefix,fal) + res:= FUNCALL(fn,df,m,e,fal) leaveIfErrors(libName,dbConstructorKind db) sayMSG ['" finalizing ",$spadLibFT,:bright libName] ok := finalizeLisplib(db,libName) |