Apply suggestions from code review

proux01 · Oct 30, 2023 · 57ea50e · 57ea50e
1 parent b020b00
commit 57ea50e
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))