Fix 235_SymbolsOverlapTokens

BNFC · Jan 21, 2022 · 1ae5a2a · 1ae5a2a
1 parent 55a6883
commit 1ae5a2a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/source/src/BNFC/Backend/FSharp/CFtoFSharpPrinter.hs b/source/src/BNFC/Backend/FSharp/CFtoFSharpPrinter.hs
@@ -114,7 +114,7 @@ integerRule cf = unlines [
     ]
 
 doubleRule cf = unlines [
-    "let rec prtFloat (_:int) (f:float) : Doc = render (sprintf \"%.14f\" f)",
+    "let rec prtFloat (_:int) (f:float) : Doc = render (f.ToString().ToLower())",
     ifList cf (TokenCat catDouble),
     ""
     ]