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/msgdb.boot | |
parent | 20a8ad75b7e37bb087342e80e3f1c18eb74e4af8 (diff) | |
download | open-axiom-583976f30783abbf02f64abca8796d5a28111b76.tar.gz |
Misc cleanup.
Diffstat (limited to 'src/interp/msgdb.boot')
-rw-r--r-- | src/interp/msgdb.boot | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot index 5af024b8..3833651c 100644 --- a/src/interp/msgdb.boot +++ b/src/interp/msgdb.boot @@ -296,10 +296,11 @@ operationLink name == escapeSpecialChars STRINGIMAGE name) ---------------------------------------- +buildMessage(msg, args) == + substituteSegmentedMsg(segmentKeyedMsg msg,args) + sayPatternMsg(msg,args) == - msg := segmentKeyedMsg msg - msg := substituteSegmentedMsg(msg,args) - sayMSG flowSegmentedMsg(msg,$LINELENGTH,3) + sayMSG flowSegmentedMsg(buildMessage(msg, args),$LINELENGTH,3) throwPatternMsg(key,args) == sayMSG '" " |