aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog5
-rw-r--r--src/interp/nruncomp.boot2
2 files changed, 7 insertions, 0 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index cbe923fa..0bf199fb 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,10 @@
2011-11-27 Gabriel Dos Reis <gdr@cs.tamu.edu>
+ * interp/nruncomp.boot (genDeltaEntry): Replace Rep with its value
+ if it is the domain of computation.
+
+2011-11-27 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
* interp/database.boot (dbDefaultPackage?): New.
* interp/define.boot (compDefine1): Avoid encodeItem when
symbolName is meant.
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