diff options
author | dos-reis <gdr@axiomatics.org> | 2008-11-15 17:21:03 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-11-15 17:21:03 +0000 |
commit | 6c32bd875a857d1ff44ad9b8b555032c4be86cc6 (patch) | |
tree | 37a5a1eddacad06288601b464a9f6c70b329db4f /src/interp/i-toplev.boot | |
parent | 5c1ed5bae25e6950e685f384ea1440a6d539fd95 (diff) | |
download | open-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/i-toplev.boot')
-rw-r--r-- | src/interp/i-toplev.boot | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/i-toplev.boot b/src/interp/i-toplev.boot index af7a4de8..563fa1fe 100644 --- a/src/interp/i-toplev.boot +++ b/src/interp/i-toplev.boot @@ -129,14 +129,13 @@ processInteractive(form, posnForm) == $op: local:= (form is [op,:.] => op; form) --name of operator $Coerce: local := NIL - $compErrorMessageStack:local + $compErrorMessageStack: local := nil $freeVars : local := NIL $mapList:local := NIL --list of maps being type analyzed $compilingMap:local:= NIL --true when compiling a map $compilingLoop:local:= NIL --true when compiling a loop body $interpOnly: local := NIL --true when in interpret only mode $whereCacheList: local := NIL --maps compiled because of where - $timeGlobalName: local := '$compTimeSum --see incrementTimeSum $StreamFrame: local := nil --used in printing streams $declaredMode: local := NIL --Weak type propagation for symbols $localVars:local := NIL --list of local variables in function |