Commit be4cb4d2 authored by Jérôme Maloberti's avatar Jérôme Maloberti

Fix in ocaml interface from Matti Jokinen.

parent 5dd595d0
......@@ -32,7 +32,7 @@ let id s =
let j = String.index_from s i '.' in
<:ident< $uid:String.sub s i (j - i)$.$aux (j+1)$ >>
with Not_found ->
<:ident< $lid:String.sub s i (String.length s - i)$ >>
<:ident< $uid:String.sub s i (String.length s - i)$ >>
in
(* Printf.eprintf "*** %S\n" s; *)
aux 0
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment