Bug in srfi-48?

--001a1141795a138ecc055b4aa139
Content-Type: text/plain; charset="UTF-8"
X-SL-Modified: truncated_text

Using Gambit 4.8.8 on an Arch Linux system:

> (load "srfi-48.scm")
"/home/dca/Software/newcash/gLibraries/srfi-48/srfi-48.scm"
> (format "~a & ~7,2F\\%\\\\\n" "Framingham Mass Muni Purpose Loan"
.997554209949891)
*** ERROR IN compose-with-digits, "srfi-48.scm"@86.46 -- (Argument 2)
NUMBER expected
(+ 1 #f)

Previous calls in my code with the numeric argument > 1 worked (in the
sense of not producing errors), but here's an example where the result
seems incorrect:

2> (format "~a & ~7,2F\\%\\\\\n" "Framingham Mass Muni Purpose Loan"
1.997554209949891)
"Framingham Mass Muni Purpose Loan &    2.10\\%\\\\\n"

3> (/ (round (* 1.997554209949891 100)) 100)
2.

/Don Allen

--001a1141795a138ecc055b4aa139
Content-Type: text/html; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-SL-Modified: truncated_html

<div dir=3D"ltr"><div><div>Using Gambit 4.8.8 on an Arch Linux system:<br><=
br>&gt; (load &quot;srfi-48.scm&quot;)<br>&quot;/home/dca/Software/newcash/=
gLibraries/srfi-48/srfi-48.scm&quot;<br>&gt; (format &quot;~a &amp; ~7,2F\\=
%\\\\\n&quot; &quot;Framingham Mass Muni Purpose Loan&quot; .99755420994989=
1)<br>*** ERROR IN compose-with-digits, &quot;srfi-48.scm&quot;@86.46 -- (A=
rgument 2) NUMBER expected<br>(+ 1 #f)<br><br></div>Previous calls in my co=
de with the numeric argument &gt; 1 worked (in the sense of not producing e=
rrors), but here&#39;s an example where the result seems incorrect:<br><br>=
2&gt; (format &quot;~a &amp; ~7,2F\\%\\\\\n&quot; &quot;Framingham Mass Mun=
i Purpose Loan&quot; 1.997554209949891)<br>&quot;Framingham Mass Muni Purpo=
se Loan &amp;=C2=A0=C2=A0=C2=A0 2.10\\%\\\\\n&quot;<br><br>3&gt; (/ (round =
(* 1.997554209949891 100)) 100)<br>2.<br><br></div>/Don Allen<br><div><br><=
/div></div>

--001a1141795a138ecc055b4aa139--