From 68f86316038d1b98eca653f0e4cd97d44455b290 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 28 Apr 2009 10:45:27 +0000
Subject: 	* interp/define.boot (canCacheLocalDomain): Remove dead code.

---
 src/interp/define.boot | 15 ---------------
 1 file changed, 15 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/define.boot b/src/interp/define.boot
index d0a14673..8cbc7ce9 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -1188,21 +1188,6 @@ putInLocalDomainReferences (def := [opName,[lam,varl,body]]) ==
   def
  
  
-canCacheLocalDomain(dom,elt)==
-   dom is [op,'_$,n] and MEMQ(op,'(getShellEntry ELT QREFELT)) => nil
-   domargsglobal(dom) =>
-        $functorLocalParameters:= [:$functorLocalParameters,dom]
-        PUSH([dom,GENVAR(),[elt,$selector,$funcLocLen]],$usedDomList)
-        $funcLocLen:= $funcLocLen+1
-   nil
-  where
-     domargsglobal(dom) ==
-       dom='_$ => true
-       IDENTP dom => MEMQ(dom,$functorLocalParameters)
-       ATOM dom => true
-       and/[domargsglobal(arg) for arg in rest dom]
- 
- 
 $savableItems := nil
  
 compile u ==
-- 
cgit v1.2.3