Set retcode on error properly

This commit is contained in:
Dmitry Boulytchev 2020-09-30 21:21:57 +03:00
parent 2f640fdc68
commit 52281261c4
2 changed files with 4 additions and 4 deletions

View file

@ -205,7 +205,7 @@ let main =
in
List.iter (fun i -> Printf.printf "%d\n" i) output
)
| `Fail er -> Printf.eprintf "Error: %s\n" er
| `Fail er -> Printf.eprintf "Error: %s\n" er; exit 255
with
| Language.Semantic_error msg -> Printf.printf "Error: %s\n" msg
| Commandline_error msg -> Printf.printf "%s\n" msg
| Language.Semantic_error msg -> Printf.printf "Error: %s\n" msg; exit 255
| Commandline_error msg -> Printf.printf "%s\n" msg; exit 255

View file

@ -1 +1 @@
let version = "Version 1.00, 4c736914d, Mon Sep 21 23:46:13 2020 +0300"
let version = "Version 1.00, 2f640fdc6, Wed Sep 23 01:39:38 2020 +0300"