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/nrunopt.boot | |
parent | 20a8ad75b7e37bb087342e80e3f1c18eb74e4af8 (diff) | |
download | open-axiom-583976f30783abbf02f64abca8796d5a28111b76.tar.gz |
Misc cleanup.
Diffstat (limited to 'src/interp/nrunopt.boot')
-rw-r--r-- | src/interp/nrunopt.boot | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/interp/nrunopt.boot b/src/interp/nrunopt.boot index ade21c0f..19ff1932 100644 --- a/src/interp/nrunopt.boot +++ b/src/interp/nrunopt.boot @@ -798,11 +798,12 @@ NRTgetLookupFunction(domform,exCategory,addForm) == extends := NRTextendsCategory1(domform,exCategory,getExportCategory addForm) if null extends then [u,msg,:v] := $why - sayBrightly '"--------------non extending category----------------------" - sayBrightlyNT ['"..",:bright form2String domform,"of cat "] - PRINT u - sayBrightlyNT bright msg - if v then PRINT CAR v else TERPRI() + SAY '"--------------non extending category----------------------" + compilerMessage('"%1p of category %2p", [domform,u]) + if v ^= nil then + compilerMessage('"%1b %2p",[msg,first v]) + else + compilerMessage('"%1b",[msg]) extends => 'lookupIncomplete 'lookupComplete |