diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-03-05 15:39:01 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-03-05 15:39:01 +0000 |
| commit | 0d4a863f2fa7e85a9bbd044626df9ea20704cb9e (patch) | |
| tree | ba8056e436a15690b0414783f60b0b198bba8f48 /src/interp/nruncomp.boot | |
| parent | f1c8a8db20dce5e74796e409d5bc7bec2d8793d5 (diff) | |
| download | open-axiom-0d4a863f2fa7e85a9bbd044626df9ea20704cb9e.tar.gz | |
* interp/nruncomp.boot (optDeltaEntry): Silently fail for domains
that are not instantiations.
Diffstat (limited to 'src/interp/nruncomp.boot')
| -rw-r--r-- | src/interp/nruncomp.boot | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 3dd701ca..f961ff10 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -160,7 +160,9 @@ optDeltaEntry(op,sig,dc,eltOrConst) == atom dc and (dcval := get(dc,'value,$e)) => dcval.expr dc sig := MSUBST(ndc,dc,sig) - not optimizableDomain? ndc => nil + -- Don't bothe if the domain of computation is not an instantiation, + -- or is candidate for inlining. + atom ndc or not optimizableDomain? ndc => nil fun := lookupDefiningFunction(op,sig,ndc) if fun = nil then -- following code is to handle selectors like first, rest |