From d1311e63edac5606b76478c7b7bd114021f4ba54 Mon Sep 17 00:00:00 2001
From: Bernhard Schommer <bernhardschommer@gmail.com>
Date: Tue, 4 Oct 2016 20:53:15 +0200
Subject: Fixed regression in printing of floats.

Commit 60402c5 breaks printing of default floats by adding support for
%lf. This commit adds back support for %f.
---
 driver/Interp.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'driver/Interp.ml')

diff --git a/driver/Interp.ml b/driver/Interp.ml
index c197d004..d7e0b1bc 100644
--- a/driver/Interp.ml
+++ b/driver/Interp.ml
@@ -304,7 +304,7 @@ let format_value m flags length conv arg =
       format_int64 (flags ^ conv) (camlint64_of_coqint i)
   | ('d'|'i'|'u'|'o'|'x'|'X'), ("ll"|"j"), _ ->
       "<long long argument expected"
-  | ('f'|'e'|'E'|'g'|'G'|'a'), "l", Vfloat f ->
+  | ('f'|'e'|'E'|'g'|'G'|'a'), (""|"l"), Vfloat f ->
       format_float (flags ^ conv) (camlfloat_of_coqfloat f)
   | ('f'|'e'|'E'|'g'|'G'|'a'), "", _ ->
       "<float argument expected"
-- 
cgit