Start fixing bugs in the unit test evaluation

1 files changed, 3 insertions, 2 deletions

diff --git a/src/Print.ml b/src/Print.ml
index 57d9be0f..b9d7372c 100644
--- a/src/Print.ml
+++ b/src/Print.ml
@@ -909,7 +909,8 @@ module EvalCtxCfimAst = struct
     let fmt = PA.eval_ctx_to_ast_formatter ctx in
     PA.statement_to_string fmt s
 
-  let expression_to_string (ctx : C.eval_ctx) (e : A.expression) : string =
+  let expression_to_string (ctx : C.eval_ctx) (indent : string)
+      (indent_incr : string) (e : A.expression) : string =
     let fmt = PA.eval_ctx_to_ast_formatter ctx in
-    PA.expression_to_string fmt "" "  " e
+    PA.expression_to_string fmt indent indent_incr e
 end