From 0d4a863f2fa7e85a9bbd044626df9ea20704cb9e Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 5 Mar 2010 15:39:01 +0000
Subject: 	* interp/nruncomp.boot (optDeltaEntry): Silently fail for
 domains 	that are not instantiations.

---
 src/interp/nruncomp.boot | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/interp/nruncomp.boot')

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