diff options
| author | Arnaud Spiwack | 2015-03-13 16:42:07 +0100 |
|---|---|---|
| committer | Arnaud Spiwack | 2015-03-13 16:42:07 +0100 |
| commit | 690ac9fe35ff153a2348b64984817cb37b7764e4 (patch) | |
| tree | 796e4132aafc763cc9d54f3315186e1bca564353 /stm | |
| parent | f90dde7b3b6eabf1f8441fe442bcf7f0263c0793 (diff) | |
| parent | 494ab7773515ea67bf365707852bbb4074f866ba (diff) | |
Merge branch 'v8.5' into trunk
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/spawned.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/stm/spawned.ml b/stm/spawned.ml index 18159288de..a8372195d4 100644 --- a/stm/spawned.ml +++ b/stm/spawned.ml @@ -81,6 +81,7 @@ let init_channels () = let get_channels () = match !channels with - | None -> Errors.anomaly(Pp.str "init_channels not called") + | None -> + Printf.eprintf "Fatal error: ideslave communication channels not set.\n"; + exit 1 | Some(ic, oc) -> ic, oc - |