From 0d4a863f2fa7e85a9bbd044626df9ea20704cb9e Mon Sep 17 00:00:00 2001 From: dos-reis Date: Fri, 5 Mar 2010 15:39:01 +0000 Subject: * interp/nruncomp.boot (optDeltaEntry): Silently fail for domains that are not instantiations. --- src/ChangeLog | 5 +++++ src/interp/nruncomp.boot | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 8a11f088..59e0a207 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2010-03-05 Gabriel Dos Reis + + * interp/nruncomp.boot (optDeltaEntry): Silently fail for domains + that are not instantiations. + 2010-03-04 Gabriel Dos Reis * interp/sys-globals.boot ($optimizeRep): Define. 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 -- cgit v1.2.3