Project

General

Profile

Revision f9f06e7d src/error.ml

View differences:

src/error.ml
10 10
  | Unknown_library of ident
11 11
  | Wrong_number of ident
12 12
  | AlgebraicLoop
13
  | LoadError of string
13 14

  
14 15
let return_code kind =
15 16
  match kind with
......
21 22
  | Unknown_library _ -> 7
22 23
  | Wrong_number _ -> 8
23 24
  | AlgebraicLoop -> 9
24

  
25
  | LoadError _ -> 10
25 26

  
26 27
  let pp_error_msg fmt = function
27 28
  | Main_not_found ->
......
50 51
      "library %s.lusic has a different version number and may crash compiler.@.Please recompile the corresponding interface or source file.@."
51 52
      sym
52 53
  | AlgebraicLoop  -> assert false (* should have been handled yet *)
54
  | LoadError l -> 
55
    fprintf fmt
56
      "Load error: %s.@."
57
      l
53 58
     
54 59
let pp_warning loc pp_msg =
55 60
  Format.eprintf "%a@.Warning: %t@."

Also available in: Unified diff