From 6c32bd875a857d1ff44ad9b8b555032c4be86cc6 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 15 Nov 2008 17:21:03 +0000
Subject: 	* interp/spad.lisp (incTimeSum): Remove. 	*
 interp/modemap.boot ($forceAdd): Define. 	* interp/nruncomp.boot
 ($NRTderivedTargetIfTrue): Likewise. 	($killOptimizeIfTrue): Likewise. 
 * interp/i-toplev.boot (processInteractive): Tidy. 	* interp/c-util.boot
 ($compErrorMessageStack): Define. 	* interp/compiler.boot (compApply):
 Remove. 	($compTimeSum): Likewise 	($resolveTimeSum): Likewise. 
 (compCompilerPredicate): Tidy. 	(comp3): There is no such thing as
 KAPPA.

---
 src/interp/define.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/interp/define.boot b/src/interp/define.boot
index 58d33090..3901ffbd 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -1488,7 +1488,7 @@ doIt(item,$predl) ==
         $functorsUsed:= insert(opOf rhs',$functorsUsed)
         $packagesUsed:= insert([opOf rhs'],$packagesUsed)
       if lhs="Rep" then
-        $Representation:= (get("Rep",'value,$e)).(0)
+        $Representation:= (get("Rep",'value,$e)).expr
            --$Representation bound by compDefineFunctor, used in compNoStacking
         if $NRTopt = true
           then NRTgetLocalIndex $Representation
-- 
cgit v1.2.3