Adapt to coq/coq#14928 (#342)

Co-authored-by: Yishuai Li <liyishuai.lys@alibaba-inc.com>
QuickChick · Nov 10, 2023 · 7120bb5 · 7120bb5
1 parent 4f8885a
commit 7120bb5
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/plugin/genericLib.ml.cppo b/plugin/genericLib.ml.cppo
@@ -962,7 +962,11 @@ let rec gList = function
   | x::xs -> gCons x (gList xs)
 
 (* Generic String Manipulations *)
+#if COQ_VERSION >= (8, 19, 0)
+let string_scope ast = CAst.make @@ CDelimiters (DelimUnboundedScope, "string", ast)
+#else
 let string_scope ast = CAst.make @@ CDelimiters ("string", ast)
+#endif
 let gStr s = string_scope (CAst.make @@ CPrim (String s))
 let emptyString = gInject "Coq.Strings.String.EmptyString"
 let str_append c1 c2 = gApp (gInject "Coq.Strings.String.append") [c1; c2]
@@ -1015,7 +1019,11 @@ let dtTupleType =
 
 (* Int *)
 
+#if COQ_VERSION >= (8, 19, 0)
+let nat_scope ast = CAst.make @@ CDelimiters (DelimUnboundedScope, "nat", ast)
+#else
 let nat_scope ast = CAst.make @@ CDelimiters ("nat", ast)
+#endif
 let gInt n =
   let number =
     Number (NumTok.Signed.of_int_string (string_of_int n))