Ticket #1548: patch-vprec

File patch-vprec, 439 bytes (added by l.mai@…, 7 years ago)

patch - fix bug #1: variable precision

Line 
1--- Printf-reformat.hs  2007-07-18 19:08:18.000000000 +0200
2+++ Printf-vprec.hs     2007-07-18 19:14:17.000000000 +0200
3@@ -281,6 +281,10 @@
4                 _         -> (-1, cs, us')
5         in
6         (n, p, l, z, s, cs'', us'')
7+getSpecs l z s ('.':'*':cs) us =
8+    case us of
9+    [] -> argerr
10+    pu : us' -> (0, toint pu, l, z, s, cs, us')
11 getSpecs l z s ('.':cs) us =
12     let (p, cs') = stoi 0 cs in
13     (0, p, l, z, s, cs', us)