Project

General

Profile

Revision 1ca48e48 src/main_lustre_compiler.ml

View differences:

src/main_lustre_compiler.ml
249 249
  | Types.Error (_,_) | Clocks.Error (_,_) -> exit 1
250 250
  | Corelang.Error (_ (* loc *), kind) (*| Task_set.Error _*) -> exit (Error.return_code kind)
251 251
  (* | Causality.Error _  -> exit (Error.return_code Error.AlgebraicLoop) *)
252
  | Sys_error msg -> (eprintf "Failure: %s@." msg)
252
  | Sys_error msg -> (eprintf "Failure: %s@." msg); exit 1
253 253
  | exc -> (track_exception (); raise exc) 
254 254

  
255 255
(* Local Variables: *)

Also available in: Unified diff