Solve segfault with OCaml 5.0

thierry-martinez · Jul 15, 2022 · e19ef99 · e19ef99
1 parent 40e616b
commit e19ef99
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/ppx/metaquot_ppx.ml b/ppx/metaquot_ppx.ml
@@ -1,8 +1,11 @@
 let mapper = object (self)
   inherit Ppxlib.Ast_traverse.map as super
 
-  method! expression =
+  method! expression exp =
+    Gc.minor (); (* This seems to solve a segfault in OCaml 5.0
+      but this is weird!*)
     Metaquot.Exp.lift { expression = super#expression; pattern = super#pattern }
+      exp
 
   method! pattern =
     Metaquot.Pat.lift { expression = super#expression; pattern = super#pattern }