From: sewardj <unknown>
Date: Thu, 11 Nov 1999 16:24:12 +0000 (+0000)
Subject: [project @ 1999-11-11 16:24:12 by sewardj]
X-Git-Tag: Approximately_9120_patches~5575
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1237053433189e26f444aa442fc3edd9bd9a041e;p=ghc-hetmet.git

[project @ 1999-11-11 16:24:12 by sewardj]
Print float/double literals correctly in error messages.
---

diff --git a/ghc/interpreter/output.c b/ghc/interpreter/output.c
index af88c66..648a32d 100644
--- a/ghc/interpreter/output.c
+++ b/ghc/interpreter/output.c
@@ -10,8 +10,8 @@
  * included in the distribution.
  *
  * $RCSfile: output.c,v $
- * $Revision: 1.10 $
- * $Date: 1999/11/09 00:41:19 $
+ * $Revision: 1.11 $
+ * $Date: 1999/11/11 16:24:12 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -206,7 +206,7 @@ Cell e; {
 
         case FLOATCELL  : {   Float f = floatOf(e);
                               if (f<0 && d>=UMINUS_PREC) putChr('(');
-                              putStr(floatToString(f));
+                              putStr(floatToString(e));
                               if (f<0 && d>=UMINUS_PREC) putChr(')');
                           }
                           break;