diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-11-28 22:04:11 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-11-28 22:04:11 +0000 |
| commit | 5d44562a593d89b5b8674a0e4cf3907de5310ba7 (patch) | |
| tree | c824a98aa9068ed0bed755ef28935ca2ff06d568 | |
| parent | 68e2e8c03b04972293096a507a4923df76772e46 (diff) | |
| download | open-axiom-5d44562a593d89b5b8674a0e4cf3907de5310ba7.tar.gz | |
* interp/nruncomp.boot (genDeltaEntry): Use $ for the domain of
computation it if is the expanded form of the current domain.
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/nruncomp.boot | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 4e2b98a0..7997147d 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,10 @@ 2011-11-28 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/nruncomp.boot (genDeltaEntry): Use $ for the domain of + computation it if is the expanded form of the current domain. + +2011-11-28 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/c-util.boot (inlineDirectCall): Inline a non-side effect free argument in a unary pure function call if it is used exactly once. * algebra/integer.spad.pamphlet (Integer) [reducedSystem]: Fix typo. 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 |