From e161fc497ab28e3e14327d3fde5fe92ec1519fb9 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Sun, 1 Oct 2023 11:21:44 -0700 Subject: [PATCH] Drop use of Pervasives (#1676) This should be backwards compatible with old versions of OCaml Fixes #1674 --- src/StandaloneOCamlMain.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/StandaloneOCamlMain.v b/src/StandaloneOCamlMain.v index d03dbab93e..2a19c9baee 100644 --- 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".