From fe63e89c9e18017cddee98f0c6ceb2783c930e86 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 20 Apr 2009 05:58:33 +0000 Subject: * interp/msgdb.boot (substituteSegmentedMsg): Handle %x specifier. --- src/ChangeLog | 4 ++++ src/interp/msgdb.boot | 2 ++ 2 files changed, 6 insertions(+) (limited to 'src') 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 + + * interp/msgdb.boot (substituteSegmentedMsg): Handle %x specifier. + 2009-04-19 Gabriel Dos Reis * 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 -- cgit v1.2.3