diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/msgdb.boot | 2 |
2 files changed, 6 insertions, 0 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 069201ed..223041eb 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2009-04-20 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * interp/msgdb.boot (substituteSegmentedMsg): Handle %x specifier. + 2009-04-19 Gabriel Dos Reis <gdr@cs.tamu.edu> * boot/ast.boot (genECLnativeTranslation): Tidy. 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 |