diff options
author | dos-reis <gdr@axiomatics.org> | 2008-03-03 12:10:04 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-03-03 12:10:04 +0000 |
commit | 44867f29f1b266f6a285a54202abec370c28e7d7 (patch) | |
tree | c45c9a19fccd994f48c4c02b07c4d30274df182b /src/interp/i-map.boot | |
parent | bd371dff087150c946a48a34299aabc893580ffe (diff) | |
download | open-axiom-44867f29f1b266f6a285a54202abec370c28e7d7.tar.gz |
* interp/i-analy.boot (bottomUp): Don't record constructor
instantiations representations in interactive environments.
* interp/i-eval.boot (evaluateFormAsType): New.
(evaluateType): Use it.
(evaluateType1): Tidy.
* interp/i-output.boot (output): Tidy.
* interp/i-object.boot ($genValue): Define here.
* interp/sys-dirver.boot ($verbose): Rename from
$verboseInterpreter.
* interp/i-map.boot (genMapCode): Propagate $verbose renaming.
* interp/slam.boot (compileRecurrenceRelation): Likewise.
Diffstat (limited to 'src/interp/i-map.boot')
-rw-r--r-- | src/interp/i-map.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot index 7d0d2b27..882763df 100644 --- a/src/interp/i-map.boot +++ b/src/interp/i-map.boot @@ -710,8 +710,8 @@ genMapCode(op,body,sig,fnName,parms,isRecursive) == op0 := ( n := isSharpVarWithNum op ) => STRCONC('"<argument ",object2String n,'">") op - if $verboseInterprerter then - if $verboseInterprerter and get(op,'isInterpreterRule,$e) then + if $verbose then + if get(op,'isInterpreterRule,$e) then sayKeyedMsg("S2IM0014",[op0,(PAIRP sig =>prefix2String CAR sig;'"?")]) else sayKeyedMsg("S2IM0015",[op0,formatSignature sig]) $whereCacheList := [op,:$whereCacheList] |