Commits

camlspotter committed 16fbe36

pos

Comments (0)

Files changed (2)

 	    end
     in
     Buffer.contents buffer
+
+  let pos t = t.abs_pos
 end
 
 include Make(M)
 let substr = M.substr
+let pos = M.pos
 include Stream.S with type elem = char
                  and  type gen  = string Stream.simple_gen
+val pos : t -> int
 val substr : t -> int -> int -> string