diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-05-10 17:10:58 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-05-10 17:10:58 +0000 |
| commit | 583976f30783abbf02f64abca8796d5a28111b76 (patch) | |
| tree | 2e9f71c9d505bf990804b2b5299181627533d828 /src/interp/apply.boot | |
| parent | 20a8ad75b7e37bb087342e80e3f1c18eb74e4af8 (diff) | |
| download | open-axiom-583976f30783abbf02f64abca8796d5a28111b76.tar.gz | |
Misc cleanup.
Diffstat (limited to 'src/interp/apply.boot')
| -rw-r--r-- | src/interp/apply.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/apply.boot b/src/interp/apply.boot index 4bc7a660..19b812ae 100644 --- a/src/interp/apply.boot +++ b/src/interp/apply.boot @@ -236,7 +236,7 @@ compMapCond(op,mc,$bindings,fnsel) == compMapCond': (%List,%Symbol,%Mode,%Env) -> %Code compMapCond'([cexpr,fnexpr],op,dc,bindings) == compMapCond''(cexpr,dc) => compMapCondFun(fnexpr,op,dc,bindings) - stackMessage ["not known that",'%b,dc,'%d,"has",'%b,cexpr,'%d] + stackMessage('"not known that %1pb has %2pb",[dc,cexpr]) compMapCond'': (%Thing,%Mode) -> %Boolean compMapCond''(cexpr,dc) == @@ -253,7 +253,7 @@ compMapCond''(cexpr,dc) == --now it must be an attribute member(["ATTRIBUTE",dc,cexpr],get("$Information","special",$e)) => true --for the time being we'll stop here - shouldn't happen so far - stackMessage ["not known that",'%b,dc,'%d,"has",'%b,cexpr,'%d] + stackMessage('"not known that %1pb has %2pb",[dc,cexpr]) false compMapCondFun: (%Thing,%Symbol,%Mode,%Env) -> %Code |