diff options
author | dos-reis <gdr@axiomatics.org> | 2009-02-28 01:36:05 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-02-28 01:36:05 +0000 |
commit | a56176b5de188bf5ffe7d7735ec47bdf7f6c0a82 (patch) | |
tree | 6ba3865133672efd165bcccfd0866293dce09eea /src/interp/compiler.boot | |
parent | 78fa2724e63b1a8784aa058e12b45922091bdd70 (diff) | |
download | open-axiom-a56176b5de188bf5ffe7d7735ec47bdf7f6c0a82.tar.gz |
Diffstat (limited to 'src/interp/compiler.boot')
-rw-r--r-- | src/interp/compiler.boot | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index ae68d089..7c07df36 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1208,14 +1208,6 @@ compPredicate(p,E) == [p',m,getSuccessEnvironment(p,E),getInverseEnvironment(p,E)] getSuccessEnvironment(a,e) == - a is ["is",id,m] => - IDENTP id and isDomainForm(m,$EmptyEnvironment) => - e:=put(id,"specialCase",m,e) - currentProplist:= getProplist(id,e) - [.,.,e] := T := comp(m,$EmptyMode,e) or return nil -- duplicates compIs - newProplist:= consProplistOf(id,currentProplist,"value",[m,:rest removeEnv T]) - addBinding(id,newProplist,e) - e a is ["case",x,m] and IDENTP x => put(x,"condition",[a,:get(x,"condition",e)],e) e |