Commit 12370534 authored by sewardj's avatar sewardj
Browse files

[project @ 1999-11-11 16:24:12 by sewardj]

Print float/double literals correctly in error messages.
parent f4f72700
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment