Avoid using vlist since it generates a table

lukstafi · Jan 22, 2024 · 905fba9 · 905fba9
1 parent 057e295
commit 905fba9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/minidebug_runtime.ml b/minidebug_runtime.ml
@@ -452,7 +452,7 @@ module PrintBox (Log_to : Debug_ch) = struct
             (hl, B.tree b bs)
         | List l ->
             let hls, bs = List.split @@ List.map loop l in
-            (List.exists (fun x -> x) hls, B.vlist bs)
+            (List.exists (fun x -> x) hls, B.tree B.empty bs)
     in
     match sexp with
     | Atom s | List [ Atom s ] ->