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/modemap.boot | |
parent | 20a8ad75b7e37bb087342e80e3f1c18eb74e4af8 (diff) | |
download | open-axiom-583976f30783abbf02f64abca8796d5a28111b76.tar.gz |
Misc cleanup.
Diffstat (limited to 'src/interp/modemap.boot')
-rw-r--r-- | src/interp/modemap.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/modemap.boot b/src/interp/modemap.boot index f941c3aa..97f29a33 100644 --- a/src/interp/modemap.boot +++ b/src/interp/modemap.boot @@ -86,8 +86,8 @@ getUniqueSignature(form,e) == getUniqueModemap(op,numOfArgs,e) == 1=#(mml:= getModemapList(op,numOfArgs,e)) => first mml 1<#mml => - stackWarning [numOfArgs,'" argument form of: ",op, - '" has more than one modemap"] + stackWarning('"%1 argument form of %2b has more than one modemap", + [numOfArgs,op]) first mml nil @@ -324,7 +324,7 @@ getOperationAlist(name,functorForm,form) == $insideFunctorIfTrue and name="$" => ($domainShell => $domainShell.(1); systemError '"$ has no shell now") T:= compMakeCategoryObject(form,$e) => ([.,.,$e]:= T; T.expr.(1)) - stackMessage ["not a category form: ",form] + stackMessage('"not a category form: %1bp",[form]) substNames(domainName,viewName,functorForm,opalist) == functorForm := SUBSTQ("$$","$", functorForm) |