diff options
| author | Gabriel Dos Reis <gdr@axiomatics.org> | 2015-12-26 22:54:33 -0800 |
|---|---|---|
| committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2015-12-26 22:54:33 -0800 |
| commit | 67662ec6afcd7450d73a1481e676ca5007f8720d (patch) | |
| tree | 1cd248994ee34f7006c7f65deff4596ef4022794 /src/interp | |
| parent | eac54a0152579f2de3fadadfd3f142d895c4b704 (diff) | |
| download | open-axiom-67662ec6afcd7450d73a1481e676ca5007f8720d.tar.gz | |
Remove dead and bogus code for constant assginments.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/functor.boot | 13 | ||||
| -rw-r--r-- | src/interp/nruncomp.boot | 5 |
2 files changed, 2 insertions, 16 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot index b068f9e2..d58357b7 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -481,12 +481,7 @@ DescendCode(db,code,flag,viewAssoc,e) == u := symbolTarget('$,viewAssoc) => ['getDomainView,'$,u] '$ body:= ['CONS,implem,dom] - u := SetFunctionSlots(sig,body,flag,'original) - ConstantCreator u => - if flag ~= true then u:= ['%when,[ProcessCond(db,flag,e),u]] - $ConstantAssignments:= [u,:$ConstantAssignments] - nil - u + SetFunctionSlots(sig,body,flag,'original) code is ['_:,:.] => (code.first := '%list; code.rest := nil) --Yes, I know that's a hack, but how else do you kill a line? code is ['%list,:.] => nil @@ -497,12 +492,6 @@ DescendCode(db,code,flag,viewAssoc,e) == stackWarning('"unknown Functor code: %1 ",[code]) code -ConstantCreator u == - null u => false - u is ['%store,['%tref,.,.],u'] => ConstantCreator u' - u is ['CONS,:.] => false - true - ProcessCond(db,cond,e) == ncond := dbSubstituteFormals(db,cond) valuePosition(ncond,$NRTslot1PredicateList) => predicateBitRef(db,ncond,e) diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 761dd2a7..1e413c64 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -449,7 +449,6 @@ buildFunctor(db,sig,code,$locals,$e) == $GENNO: local:= 0 --bound in compDefineFunctor1, then as parameter here $hasCategoryAlist: local := nil --list of GENSYMs bound to (HasCategory ..) items $SetFunctions: local := nil --copy of p view with preds telling when fnct defined - $ConstantAssignments: local := nil --code for creation of constants $epilogue: local := nil --code to set slot 5, things to be done last $HackSlot4: local := nil --Invention of JHD 13/July/86-set in InvestigateConditions $extraParms:local := nil --Set in DomainSubstitutionFunction @@ -515,9 +514,7 @@ buildFunctor(db,sig,code,$locals,$e) == [addToSlam($definition,"$")] --CODE: part 3 - $ConstantAssignments := - [NRTputInLocalReferences(db,code) for code in $ConstantAssignments] - codePart3 := [:$ConstantAssignments,:$epilogue] + codePart3 := $epilogue ans := ["%bind",bindings, ['%seq,:washFunctorBody optFunctorBody [:codePart1,:codePart2,:codePart3],"$"]] |