From 68f86316038d1b98eca653f0e4cd97d44455b290 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 28 Apr 2009 10:45:27 +0000 Subject: * interp/define.boot (canCacheLocalDomain): Remove dead code. --- src/ChangeLog | 4 ++++ src/interp/define.boot | 15 --------------- 2 files changed, 4 insertions(+), 15 deletions(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index fe1a9a14..614d802a 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2009-04-28 Gabriel Dos Reis + + * interp/define.boot (canCacheLocalDomain): Remove dead code. + 2009-04-28 Gabriel Dos Reis * interp/compiler.boot (compComma): Supply element type for tuple 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