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/functor.boot | |
parent | eac54a0152579f2de3fadadfd3f142d895c4b704 (diff) | |
download | open-axiom-67662ec6afcd7450d73a1481e676ca5007f8720d.tar.gz |
Remove dead and bogus code for constant assginments.
Diffstat (limited to 'src/interp/functor.boot')
-rw-r--r-- | src/interp/functor.boot | 13 |
1 files changed, 1 insertions, 12 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) |