From e2449c99d2831799f86bf530d1add0ea5537e96f Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Mon, 21 Apr 2025 18:39:06 -0400 Subject: Preserve original number literal in s-expression --- src/ast.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/ast.c b/src/ast.c index 5350abba..65aa572a 100644 --- a/src/ast.c +++ b/src/ast.c @@ -147,8 +147,8 @@ CORD ast_to_sexp(ast_t *ast) T(None, "(None)") T(Bool, "(Bool %s)", data.b ? "yes" : "no") T(Var, "(Var %r)", CORD_quoted(data.name)) - T(Int, "(Int %r)", CORD_quoted(data.str)) - T(Num, "(Num %.20g)", data.n) + T(Int, "(Int %r)", CORD_quoted(ast_source(ast))) + T(Num, "(Num %r)", CORD_quoted(ast_source(ast))) T(TextLiteral, "%r", CORD_quoted(data.cord)) T(TextJoin, "(Text%r%r)", data.lang ? CORD_all(" :lang ", CORD_quoted(data.lang)) : CORD_EMPTY, ast_list_to_sexp(data.children)) T(Path, "(Path %r)", CORD_quoted(data.path)) -- cgit v1.2.3