Commits

camlspotter committed f0aaef8

fixed issue #9: bxxxx raises End_of_file if xxx is near at the eof

  • Participants
  • Parent commits 9595ccc
  • Branches dev

Comments (0)

Files changed (2)

             close_in ic;
             { line_column = Some (lines, remain); bytes = Some bytes }
           end else begin
-            ignore (input_line ic);
-            iter (lines+1) new_remain
+            if try ignore (input_line ic); true with End_of_file -> false then
+              iter (lines+1) new_remain
+            else
+              { line_column = Some (lines+1, new_remain); bytes = Some bytes }    
           end
         in
         iter 0 bytes
 and modtype_declaration = function
   | Modtype_abstract -> Modtype_abstract
   | Modtype_manifest mty -> Modtype_manifest (module_type mty)
-