From d78b5539ffe42f70b9a028d88821b52be1deb43e Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 19 Dec 2007 13:07:48 +0000 Subject: * nruncomp.boot (deltaTran): Fix thinko; handle the case where the domain of computation is the add form. --- src/interp/ChangeLog | 5 +++++ src/interp/nruncomp.boot | 1 + 2 files changed, 6 insertions(+) (limited to 'src') diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog index 21898b04..ca981ad1 100644 --- a/src/interp/ChangeLog +++ b/src/interp/ChangeLog @@ -1,3 +1,8 @@ +2007-12-19 Gabriel Dos Reis + + * nruncomp.boot (deltaTran): Fix thinko; handle the case where the + domain of computation is the add form. + 2007-12-17 Gabriel Dos Reis * nruncomp.boot: Remove dead code. 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) -- cgit v1.2.3