From 630f910563b6f27dd34a4a0496a43d32539eadcb Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Sat, 15 Nov 2025 14:33:15 -0500 Subject: Incremental fixes --- src/compile/expressions.c | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'src/compile') diff --git a/src/compile/expressions.c b/src/compile/expressions.c index 28f91500..c28185ce 100644 --- a/src/compile/expressions.c +++ b/src/compile/expressions.c @@ -79,14 +79,14 @@ Text_t compile(env_t *env, ast_t *ast) { case Num: { // return Text$from_str(String(hex_double(Match(ast, Num)->n))); Text_t original = Text$from_str(String(string_slice(ast->start, (size_t)(ast->end - ast->start)))); - Text_t roundtrip = Text$from_str(String(Match(ast, Num)->n)); - original = Text$replace(original, Text("_"), EMPTY_TEXT); - original = Text$without_suffix(original, Text(".")); - if (Text$equal_values(original, roundtrip)) { - return Texts("Real$from_float64(", Text$from_str(String(hex_double(Match(ast, Num)->n))), ")"); - } else { - return Texts("Real$parse(Text(\"", original, "\"), NULL)"); - } + // Text_t roundtrip = Text$from_str(String(Match(ast, Num)->n)); + // original = Text$replace(original, Text("_"), EMPTY_TEXT); + // original = Text$without_suffix(original, Text(".")); + // if (Text$equal_values(original, roundtrip)) { + // return Texts("Real$from_float64(", Text$from_str(String(hex_double(Match(ast, Num)->n))), ")"); + // } else { + return Texts("Real$parse(Text(\"", original, "\"), NULL)"); + // } } case Not: { ast_t *value = Match(ast, Not)->value; -- cgit v1.2.3