[print out C floating point constants as floating point
John Meacham <john@repetae.net>**20070516164321] hunk ./C/FromGrin2.hs 143
-convertVal (Lit i _) = return (constant $ number (fromIntegral i))
+convertVal (Lit i ty)
+    | ty == Ty (toAtom "float") || ty == Ty (toAtom "double") = return (constant $ floating (fromIntegral i))
+    | otherwise = return (constant $ number (fromIntegral i))
+
hunk ./C/Generate.hs 37
+    floating,
hunk ./C/Generate.hs 242
+floating :: Double -> Constant
+floating i = C (tshow i)
+