From d78b5539ffe42f70b9a028d88821b52be1deb43e Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
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 <gdr@cs.tamu.edu>
+
+ * nruncomp.boot (deltaTran): Fix thinko; handle the case where the
+ domain of computation is the add form.
+
2007-12-17 Gabriel Dos Reis <gdr@cs.tamu.edu>
* 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