diff options
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 |