open MatitaTypes
exception Drop;;
-exception UnableToInclude of string;;
+exception UnableToInclude of string
+exception IncludedFileNotCompiled of string
let debug = false ;;
let debug_print = if debug then prerr_endline else ignore ;;
in
try
aux paths
- with Unix.Unix_error _ as exc ->
- command_error ("File " ^ path ^ " not found")
+ with Unix.Unix_error _ as exc -> raise (UnableToInclude path)
;;
let eval_command opts status cmd =
let absolute_path = make_absolute opts.include_paths path in
let moopath = MatitaMisc.obj_file_of_script absolute_path in
let ic =
- try open_in moopath with Sys_error _ -> raise (UnableToInclude moopath) in
+ try open_in moopath with Sys_error _ ->
+ raise (IncludedFileNotCompiled moopath) in
let stream = Stream.of_channel ic in
let status = ref status in
!eval_from_stream_ref status stream (fun _ _ -> ());