Commits

camlspotter  committed a56d9bd

fix

  • Participants
  • Parent commits 4f0aaaf

Comments (0)

Files changed (1)

       try 
         let pos = String.index s '-' in
         let (start,end_) = (int_of_string (String.sub s 0 pos),
-                            int_of_string (String.sub s (pos+1) (String.length s - pos))) in
+                            int_of_string (String.sub s (pos+1) (String.length s - pos - 1))) in
         if start <= 0 || end_ <= 0 || start > end_ then
           failwith (Printf.sprintf "Wrong -lines specification: %s" s);
         lines := Some (start, end_)