From 5d44562a593d89b5b8674a0e4cf3907de5310ba7 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 28 Nov 2011 22:04:11 +0000
Subject: 	* interp/nruncomp.boot (genDeltaEntry): Use $ for the domain
 of 	computation it if is the expanded form of the current domain.

---
 src/interp/nruncomp.boot | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/interp/nruncomp.boot')

diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot
index 353492f4..2fe210e9 100644
--- a/src/interp/nruncomp.boot
+++ b/src/interp/nruncomp.boot
@@ -191,6 +191,8 @@ $onlyAbstractSlot := false
 genDeltaEntry(op,mm,e) ==
   if mm.mmDC is 'Rep then
     mm := substitute(getRepresentation e,'Rep,mm)
+  else if (x := get('$,'%dc,e)) and x = mm.mmDC then
+    mm := MSUBST('$,x,mm)
   [[dc,:sig],[.,cform:=[kind,.,nsig]]] := mm
   if $profileCompiler then profileRecord(dc,op,sig)
   kind is 'XLAM => cform
-- 
cgit v1.2.3