From a0081da8b161489e0e188fe4ea66a349bf400740 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 28 Nov 2011 05:43:19 +0000 Subject: * interp/nruncomp.boot (genDeltaEntry): Replace Rep with its value if it is the domain of computation. --- src/ChangeLog | 5 +++++ src/interp/nruncomp.boot | 2 ++ 2 files changed, 7 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index cbe923fa..0bf199fb 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2011-11-27 Gabriel Dos Reis + + * interp/nruncomp.boot (genDeltaEntry): Replace Rep with its value + if it is the domain of computation. + 2011-11-27 Gabriel Dos Reis * interp/database.boot (dbDefaultPackage?): New. diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 5fb775dc..b65f9cd8 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -191,6 +191,8 @@ optDeltaEntry(op,sig,dc,kind) == $onlyAbstractSlot := false genDeltaEntry(op,mm,e) == + if mm.mmDC is 'Rep then + mm := substitute(getRepresentation e,'Rep,mm) [[dc,:sig],[.,cform:=[kind,.,nsig]]] := mm if $profileCompiler then profileRecord(dc,op,sig) kind is 'XLAM => cform -- cgit v1.2.3