fix bug in CCParse

src/core/CCParse.ml

@@ -605,7 +605,7 @@ let take_until_success p : (slice * _) t =
         let continue = ref true in
         let res = ref None in
 
-        while !continue && !i < st.j do
+        while !continue && !i <= st.j do
           let st' = { st with i = !i } in
           p.run st'
             ~ok:(fun new_st x ->

tests/core/t_parse.ml

@@ -188,6 +188,15 @@ eq
      "hello world")
 ;;
 
+eq
+  ~printer:(errpp Q.Print.(string))
+  (Ok "ahahahah")
+  (parse_string
+     (let+ slice, () = take_until_success eoi in
+      Slice.to_string slice)
+     "ahahahah")
+;;
+
 t @@ fun () ->
 let p0 = skip_white *> U.int in
 let p = skip_white *> char '(' *> many p0 <* (skip_white <* char ')') in