summaryrefslogtreecommitdiff
path: root/lib/Camlcoq.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Camlcoq.ml')
-rw-r--r--lib/Camlcoq.ml8
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Camlcoq.ml b/lib/Camlcoq.ml
index 3660a10..c7abdcc 100644
--- a/lib/Camlcoq.ml
+++ b/lib/Camlcoq.ml
@@ -90,15 +90,15 @@ let char_of_ascii (Ascii.Ascii(a0, a1, a2, a3, a4, a5, a6, a7)) =
let coqstring_length s =
let rec len accu = function
- | CoqString.EmptyString -> accu
- | CoqString.CoqString(_, s) -> len (accu + 1) s
+ | String0.EmptyString -> accu
+ | String0.String(_, s) -> len (accu + 1) s
in len 0 s
let camlstring_of_coqstring s =
let r = String.create (coqstring_length s) in
let rec fill pos = function
- | CoqString.EmptyString -> r
- | CoqString.CoqString(c, s) -> r.[pos] <- char_of_ascii c; fill (pos + 1) s
+ | String0.EmptyString -> r
+ | String0.String(c, s) -> r.[pos] <- char_of_ascii c; fill (pos + 1) s
in fill 0 s
(* Timing facility *)