diff options
author | dos-reis <gdr@axiomatics.org> | 2008-05-09 17:39:54 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-05-09 17:39:54 +0000 |
commit | 20a8ad75b7e37bb087342e80e3f1c18eb74e4af8 (patch) | |
tree | 2796d582814e528527310f88b9cc9301cee42ebb /src/interp/nruncomp.boot | |
parent | 2e3759ab9fa0e0962408ddf39f88f892f0fed1de (diff) | |
download | open-axiom-20a8ad75b7e37bb087342e80e3f1c18eb74e4af8.tar.gz |
* interp/as.boot: Remove Old Boot semantics.
* interp/br-con.boot: Likewise.
* interp/br-data.boot: Likewise.
* interp/br-op1.boot: Likewise.
* interp/br-op2.boot: Likewise.
* interp/br-saturn.boot: Likewise.
* interp/compiler.boot: Likewise.
* interp/define.boot: Likewise.
* interp/fortcall.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/htsetvar.boot: Likewise.
* interp/newfort.boot: Likewise.
* interp/nruncomp.boot: Likewise.
* interp/nrunopt.boot: Likewise.
Diffstat (limited to 'src/interp/nruncomp.boot')
-rw-r--r-- | src/interp/nruncomp.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 6d11867c..749488e1 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -153,7 +153,7 @@ optDeltaEntry(op,sig,dc,eltOrConst) == dc = '$ => $functorForm atom dc and (dcval := get(dc,'value,$e)) => dcval.expr dc - sig := SUBST(ndc,dc,sig) + sig := substitute(ndc,dc,sig) not MEMQ(KAR ndc,$optimizableConstructorNames) => nil dcval := optCallEval ndc -- MSUBST guarantees to use EQUAL testing |