aboutsummaryrefslogtreecommitdiff
path: root/src/interp/define.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-11-15 17:21:03 +0000
committerdos-reis <gdr@axiomatics.org>2008-11-15 17:21:03 +0000
commit6c32bd875a857d1ff44ad9b8b555032c4be86cc6 (patch)
tree37a5a1eddacad06288601b464a9f6c70b329db4f /src/interp/define.boot
parent5c1ed5bae25e6950e685f384ea1440a6d539fd95 (diff)
downloadopen-axiom-6c32bd875a857d1ff44ad9b8b555032c4be86cc6.tar.gz
* 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.
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r--src/interp/define.boot2
1 files changed, 1 insertions, 1 deletions
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