diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-09-04 17:44:24 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-09-04 17:44:24 +0000 |
| commit | a46f90e0f19cf9c5512d459efc48bff6d15d9fb8 (patch) | |
| tree | 05e02fbb5095dc83cfdfa7ae788ad9d119607685 /src/interp/define.boot | |
| parent | 2be7e3089ebb7c7d179306b5bb26272fc0a5c249 (diff) | |
| download | open-axiom-a46f90e0f19cf9c5512d459efc48bff6d15d9fb8.tar.gz | |
* interp/br-data.boot: Don't use $lisplibParents.
* interp/define.boot: Likewise.
* interp/lisplib.boot: Likewise.
Diffstat (limited to 'src/interp/define.boot')
| -rw-r--r-- | src/interp/define.boot | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index f5517e3e..ee3236ab 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1055,12 +1055,10 @@ compDefineCategory2(form,signature,specialCases,body,m,e, $domainShell := eval [op',:[MKQ f for f in sargl]] dbConstructorModemap(constructorDB op') := [[parForm,:parSignature],[true,op']] $lisplibCategory:= formalBody + dbPrincipals(db) := getParentsFor(db,$FormalMapVariableList,$lisplibCategory) if $LISPLIB then - $lisplibParents := - getParentsFor(db,$FormalMapVariableList,$lisplibCategory) $lisplibAncestors := computeAncestorsOf($form,nil) - form':=[op',:sargl] - augLisplibModemapsFromCategory(form',formalBody,signature') + augLisplibModemapsFromCategory([op',:sargl],formalBody,signature') dbBeingDefined?(db) := false [fun,$Category,e] @@ -1421,11 +1419,9 @@ compDefineFunctor1(df is ['DEF,form,signature,nils,body], -- 5. give operator a 'modemap property modemap := [[parForm,:parSignature],[true,op']] dbConstructorModemap(constructorDB op') := modemap - if $LISPLIB then - $lisplibCategory := modemap.mmTarget - $lisplibParents := - getParentsFor(db,$FormalMapVariableList,$lisplibCategory) - $lisplibAncestors := computeAncestorsOf($form,nil) + $lisplibCategory := modemap.mmTarget + dbPrincipals(db) := getParentsFor(db,$FormalMapVariableList,$lisplibCategory) + $lisplibAncestors := computeAncestorsOf($form,nil) $insideFunctorIfTrue:= false if $LISPLIB then if not $bootStrapMode then |