diff options
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 15 |
1 files changed, 0 insertions, 15 deletions
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 == |