diff options
author | dos-reis <gdr@axiomatics.org> | 2007-12-19 13:07:48 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-12-19 13:07:48 +0000 |
commit | d78b5539ffe42f70b9a028d88821b52be1deb43e (patch) | |
tree | 107a5c5806106aa99136d3a18599edb58472a943 /src/interp/nruncomp.boot | |
parent | baa9b5b69f1566ed6ad37d15b4cf8dea01d7e8ed (diff) | |
download | open-axiom-d78b5539ffe42f70b9a028d88821b52be1deb43e.tar.gz |
* nruncomp.boot (deltaTran): Fix thinko; handle the case where the
domain of computation is the add form.
Diffstat (limited to 'src/interp/nruncomp.boot')
-rw-r--r-- | src/interp/nruncomp.boot | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index e5deec1b..02ce4bd1 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -90,6 +90,7 @@ deltaTran(item,compItem) == sig := substitute('$,dc,substitute("$$",'$,sig)) dcCode := dc = '$ => 0 + dc = $NRTaddForm => 5 NRTassocIndex dc or keyedSystemError("S2NR0004",[dc]) formalSig:= SUBLISLIS($FormalMapVariableList,$formalArgList,sig) kindFlag:= (kind = 'CONST => 'CONST; nil) |