On Sat, 4 Feb 2012, Stefan Israelsson Tampe wrote:

> You forgot h in the format expression
>
> asked for,
>   (format #f "~h" 12345.5678)
>
> you wrote,
>   (format #f "~" 12345.5678)

Oops.

scheme@(guile-user)> (use-modules (ice-9 format))
scheme@(guile-user)> (setlocale LC_ALL "en_US")
$1 = "en_US"
scheme@(guile-user)> (format #f "~h" 12345.5678)
$2 = "12345.5678"


> On Sat, Feb 4, 2012 at 8:56 PM, David Fang <fang@csl.cornell.edu> wrote:
>
>> FAIL: i18n.test: format ~h: English: 12345.5678
>>>>
>>>
>>> Yes, that˙˙s a new feature, and a new regression.  ;-)
>>> Can you try:
>>>
>>>  (use-modules (ice-9 format))
>>>  (setlocale LC_ALL "en_US")
>>>  (format #f "~h" 12345.5678)
>>>
>>
>> [fangism:guile20-2.0.5.24-**e7f7-0/guile-2.0.5.24-e7f7/**build] fang%
>> meta/guile
>> GNU Guile 2.0.5.24-e7f7
>> Copyright (C) 1995-2012 Free Software Foundation, Inc.
>>
>> Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
>> This program is free software, and you are welcome to redistribute it
>> under certain conditions; type `,show c' for details.
>>
>> Enter `,help' for help.
>> scheme@(guile-user)> (use-modules (ice-9 format))
>> scheme@(guile-user)> (setlocale LC_ALL "en_US")
>> $1 = "en_US"
>> scheme@(guile-user)> (format #f "~" 12345.5678)
>> ;;; <stdin>:3:0: warning: "~": wrong number of `format' arguments:
>> expected 0, got 1
>> $2 = "~"
>>
>>   (use-modules (ice-9 i18n))
>>>  (setlocale LC_ALL "en_US")
>>>  (locale-decimal-point)
>>>  (locale-thousands-separator)
>>>
>>
>> [fangism:guile20-2.0.5.24-**e7f7-0/guile-2.0.5.24-e7f7/**build] fang%
>> meta/guile
>> GNU Guile 2.0.5.24-e7f7
>> Copyright (C) 1995-2012 Free Software Foundation, Inc.
>>
>> Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
>> This program is free software, and you are welcome to redistribute it
>> under certain conditions; type `,show c' for details.
>>
>> Enter `,help' for help.
>> scheme@(guile-user)> (use-modules (ice-9 i18n))
>> scheme@(guile-user)> (setlocale LC_ALL "en_US")
>> $1 = "en_US"
>> scheme@(guile-user)> (locale-decimal-point)
>> $2 = "."
>> scheme@(guile-user)> (locale-thousands-separator)
>> $3 = ","
>>
>>
>>
>> --
>> David Fang
>> http://www.csl.cornell.edu/~**fang/ <http://www.csl.cornell.edu/%7Efang/>
>>
>

-- 
David Fang
http://www.csl.cornell.edu/~fang/