From 5b9de4d5a35f7631e88ab4aa5d5e31789bd5365d Mon Sep 17 00:00:00 2001 From: haxala1r Date: Thu, 6 Nov 2025 23:29:28 +0300 Subject: [PATCH] Minor changes --- lib/ast.ml | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lib/ast.ml b/lib/ast.ml index c954c1d..0319ca7 100644 --- a/lib/ast.ml +++ b/lib/ast.ml @@ -60,6 +60,8 @@ let reduce init f = | _ -> invalid_arg "cannot reduce over non-list!" in aux init + + let rec dbg_print_one v = let pf = Printf.sprintf in match v with