From e38bdcce47486cb0b56cdbf456c1a0396761f2ab Mon Sep 17 00:00:00 2001
From: Olivier Nicole <olivier@chnik.fr>
Date: Sat, 22 Oct 2022 23:58:20 +0200
Subject: [PATCH] Fix issue #18

---
 bytecomp/translcore.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bytecomp/translcore.ml b/bytecomp/translcore.ml
index f59c58812a..389163c16e 100644
--- a/bytecomp/translcore.ml
+++ b/bytecomp/translcore.ml
@@ -1547,7 +1547,7 @@ let transl_macro target_phase rec_flag pat_expr_list inspect body =
       let clos_lam =
         Lprim (Pmakeblock (0, Immutable, None),
           List.map (fun p ->
-            transl_path expr.exp_env p
+            transl_path (Env.with_phase 0 expr.exp_env) p
           ) (cs_paths @ macro_paths),
           Location.none)
       in