diff options
author | dos-reis <gdr@axiomatics.org> | 2013-05-28 20:36:14 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2013-05-28 20:36:14 +0000 |
commit | 7b6b02236d6187fd31b9382f8649b5a4561c392f (patch) | |
tree | 134ce23ae3f1a6ffd0c99e0b3ee4e7af98b09302 /src/interp/lisplib.boot | |
parent | 065dc716ace343dc72a3c87201bdf43b67b039ed (diff) | |
download | open-axiom-7b6b02236d6187fd31b9382f8649b5a4561c392f.tar.gz |
Have constructor definition compilers take a DB parameter.
Diffstat (limited to 'src/interp/lisplib.boot')
-rw-r--r-- | src/interp/lisplib.boot | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 54220181..6695c431 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -413,12 +413,10 @@ compConLib1(fun,infileOrNil,outfileOrNil,auxOp,editFlag,traceFlag) == val:= _/D_,2_,LIB(fun,infile,outstream,auxOp,editFlag,traceFlag) val -compDefineLisplib(df:=["DEF",[op,:.],:.],m,e,fal,fn) == +compDefineLisplib(db,df:=["DEF",[op,:.],:.],m,e,fal,fn) == --fn= compDefineCategory1 OR compDefineFunctor1 sayMSG fillerSpaces(72,char "-") $op: local := op - db := constructorDB op - dbPredicates(db) := nil $lisplibOperationAlist: local := nil $libFile: local := nil --for categories, is rhs of definition; otherwise, is target of functor @@ -435,13 +433,12 @@ compDefineLisplib(df:=["DEF",[op,:.],:.],m,e,fal,fn) == -- following guarantee's compiler output files get closed. ok := false; try - res:= FUNCALL(fn,df,m,e,fal) + res:= FUNCALL(fn,db,df,m,e,fal) leaveIfErrors(libName,dbConstructorKind db) sayMSG ['" finalizing ",$spadLibFT,:bright libName] ok := finalizeLisplib(db,libName) finally RSHUT $libFile - dbCompilerData(db) := nil if ok then lisplibDoRename(libName) filearg := makeFullFilePath [libName,$spadLibFT,$libraryDirectory] RPACKFILE filearg |