diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-04-20 05:58:33 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-04-20 05:58:33 +0000 |
| commit | fe63e89c9e18017cddee98f0c6ceb2783c930e86 (patch) | |
| tree | ce464e534bb4235950202dd6d0a3c06ea6e0218d /src/interp | |
| parent | 4957231038f00c946afee42e96b38ea1e2ea108e (diff) | |
| download | open-axiom-fe63e89c9e18017cddee98f0c6ceb2783c930e86.tar.gz | |
* interp/msgdb.boot (substituteSegmentedMsg): Handle %x specifier.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/msgdb.boot | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot index e49c9e21..75c0ba89 100644 --- a/src/interp/msgdb.boot +++ b/src/interp/msgdb.boot @@ -217,6 +217,8 @@ substituteSegmentedMsg(msg,args) == for ch in '(_. _, _! _: _; _?) repeat if MEMQ(char ch,q) then l := cons(ch,l) + c = char "%" and n > 1 and x.1 = char "x" and DIGITP x.2 => + l := [fillerSpaces(DIG2FIX x.2, '" "),:l] --x is a plain word l := cons(x,l) addBlanks NREVERSE l |