This commit is contained in:
2025-08-30 14:48:44 +02:00
parent 64365b5c4f
commit c4f09d6ca8

View File

@@ -792,7 +792,7 @@ let () =
{ source = src; path = "top" } { source = src; path = "top" }
parsr in parsr in
let v = Option.get v in let v = Option.get v in
let v = SExpr.flat_map SExprMacroExp.do_eval v in let v = SExprMacroExp.do_eval v in
Format.set_margin 40; Format.set_margin 40;
Format.printf "%a@.@?" SExpr.pp_t v; Format.printf "%a@.@?" SExpr.pp_t v;