diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-26 02:58:22 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-26 02:58:22 +0000 |
| commit | 47343d6fc2dcd7c9795f7a715a7cf1d862733c26 (patch) | |
| tree | eba6fcf9262aaba3366f0573b693679e125210b0 /src/interp/lisplib.boot | |
| parent | f0dc480a4aa1532caef8f2793e94bf51154fddd1 (diff) | |
| download | open-axiom-47343d6fc2dcd7c9795f7a715a7cf1d862733c26.tar.gz | |
* interp/postpar.boot (postSignature): Tidy.
* interp/parse.boot (transCategoryItem): Remove as dead code.
* interp/lisplib.boot (finalizeLisplib): Remove use of removeZeroOne.
* interp/cattable.boot (categoryParts): Tidy.
Diffstat (limited to 'src/interp/lisplib.boot')
| -rw-r--r-- | src/interp/lisplib.boot | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index c23056a0..c7d3bfdb 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -526,7 +526,7 @@ finalizeLisplib(ctor,libName) == mm := getConstructorModemap ctor writeConstructorForm(ctor,form,$libFile) writeKind(ctor,kind,$libFile) - writeConstructorModemap(ctor,removeZeroOne mm,$libFile) + writeConstructorModemap(ctor,mm,$libFile) writeDualSignature(db,$libFile) $lisplibCategory := $lisplibCategory or mm.mmTarget -- set to target of mm for package/domain constructors; @@ -534,22 +534,22 @@ finalizeLisplib(ctor,libName) == if dbConstructorKind db = 'category then writeCategory(ctor,$lisplibCategory,$libFile) lisplibWrite('"sourceFile",namestring _/EDITFILE,$libFile) - lisplibWrite('"modemaps",removeZeroOne $lisplibModemapAlist,$libFile) + lisplibWrite('"modemaps",$lisplibModemapAlist,$libFile) opsAndAtts := getConstructorOpsAndAtts(form,kind,mm) - writeOperations(ctor,removeZeroOne first opsAndAtts,$libFile) + writeOperations(ctor,first opsAndAtts,$libFile) if kind='category then $pairlis : local := pairList(form,$FormalMapVariableList) $NRTslot1PredicateList : local := [] NRTgenInitialAttributeAlist(db,rest opsAndAtts) writeSuperDomain(ctor,dbSuperDomain db,$libFile) lisplibWrite('"signaturesAndLocals", - removeZeroOne mergeSignatureAndLocalVarAlists($lisplibSignatureAlist, + mergeSignatureAndLocalVarAlists($lisplibSignatureAlist, $lisplibVariableAlist),$libFile) - writeAttributes(ctor,removeZeroOne dbAttributes db,$libFile) - writePredicates(ctor,removeZeroOne $lisplibPredicates,$libFile) + writeAttributes(ctor,dbAttributes db,$libFile) + writePredicates(ctor,$lisplibPredicates,$libFile) writeAbbreviation(db,$libFile) - writePrincipals(ctor,removeZeroOne dbPrincipals db,$libFile) - writeAncestors(ctor,removeZeroOne dbAncestors db,$libFile) + writePrincipals(ctor,dbPrincipals db,$libFile) + writeAncestors(ctor,dbAncestors db,$libFile) if not $bootStrapMode then lisplibWrite('"documentation",finalizeDocumentation ctor,$libFile) if $profileCompiler then profileWrite() |