Drop use of Pervasives (#1676)

This should be backwards compatible with old versions of OCaml Fixes #1674
mit-plv · Oct 1, 2023 · e161fc4 · e161fc4
1 parent 090e9fd
commit e161fc4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/StandaloneOCamlMain.v b/src/StandaloneOCamlMain.v
@@ -77,7 +77,7 @@ Module Export OCamlPrimitives : OCamlPrimitivesT.
 End OCamlPrimitives.
 
 Extract Inductive int
-        => "Int.t" [ "0" "Pervasives.succ" ]
+    => "Int.t" [ "0" "(fun n -> n+1)" ]
                    "(fun fO fS n -> if n=0 then fO () else fS (n-1))".
 (* We cannot inline these constants due to COQBUG(https://github.com/coq/coq/issues/16169) *)
 Extract (*Inlined*) Constant in_channel => "in_channel".