diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-02-10 04:48:39 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-02-10 04:48:39 +0000 |
| commit | 6b365f926f1f0430c34498392e1dddbff126bc48 (patch) | |
| tree | bdbc548cea2b0968863d9695bbdfc1732b16c3c5 /src/interp/i-map.boot | |
| parent | 06e82157a75ebb6f14dae6a76a9e3a2b883b2c7a (diff) | |
| download | open-axiom-6b365f926f1f0430c34498392e1dddbff126bc48.tar.gz | |
Add support for batch processing.
Diffstat (limited to 'src/interp/i-map.boot')
| -rw-r--r-- | src/interp/i-map.boot | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot index 0add6301..40b87f1f 100644 --- a/src/interp/i-map.boot +++ b/src/interp/i-map.boot @@ -710,9 +710,10 @@ genMapCode(op,body,sig,fnName,parms,isRecursive) == op0 := ( n := isSharpVarWithNum op ) => STRCONC('"<argument ",object2String n,'">") op - if get(op,'isInterpreterRule,$e) then - sayKeyedMsg("S2IM0014",[op0,(PAIRP sig =>prefix2String CAR sig;'"?")]) - else sayKeyedMsg("S2IM0015",[op0,formatSignature sig]) + if $verboseInterprerter then + if $verboseInterprerter and get(op,'isInterpreterRule,$e) then + sayKeyedMsg("S2IM0014",[op0,(PAIRP sig =>prefix2String CAR sig;'"?")]) + else sayKeyedMsg("S2IM0015",[op0,formatSignature sig]) $whereCacheList := [op,:$whereCacheList] -- RSS: 6-21-94 |