diff options
| author | Bruce Hill <bruce@bruce-hill.com> | 2025-11-15 14:33:15 -0500 |
|---|---|---|
| committer | Bruce Hill <bruce@bruce-hill.com> | 2025-11-15 14:33:15 -0500 |
| commit | 630f910563b6f27dd34a4a0496a43d32539eadcb (patch) | |
| tree | 3670080722d53ff70a688cff395152e70273434e /src/compile | |
| parent | fc91166ce8590e67404cde79a273d7022ec16f1c (diff) | |
Incremental fixes
Diffstat (limited to 'src/compile')
| -rw-r--r-- | src/compile/expressions.c | 16 |
1 files changed, 8 insertions, 8 deletions
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; |