diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-11-28 05:43:19 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-11-28 05:43:19 +0000 |
| commit | a0081da8b161489e0e188fe4ea66a349bf400740 (patch) | |
| tree | 65a095c15d822ffbb1d0b336b3291fe6e70b961a /src/interp | |
| parent | edde1ab05981cf948483ba0407e3d8aa466f56c2 (diff) | |
| download | open-axiom-a0081da8b161489e0e188fe4ea66a349bf400740.tar.gz | |
* interp/nruncomp.boot (genDeltaEntry): Replace Rep with its value
if it is the domain of computation.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/nruncomp.boot | 2 |
1 files changed, 2 insertions, 0 deletions
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 |