diff options
| author | Pierre-Marie Pédrot | 2018-10-06 17:19:16 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-10-06 17:19:16 +0200 |
| commit | d6d6291b4929bee8122d486aec15a57e5607ff18 (patch) | |
| tree | 8af880a21df2bb336bfcf3efb9d319ef2e73661c /stm/asyncTaskQueue.ml | |
| parent | 371566f7619aed79aad55ffed6ee0920b961be6e (diff) | |
| parent | 695e8b577ee9bc49888133b8690db77f3d6ac3b7 (diff) | |
Merge PR #7850: Rewrite CEphemeron to use a type-safe implementation based on GADTs
Diffstat (limited to 'stm/asyncTaskQueue.ml')
| -rw-r--r-- | stm/asyncTaskQueue.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stm/asyncTaskQueue.ml b/stm/asyncTaskQueue.ml index 768d94d305..94e04d1842 100644 --- a/stm/asyncTaskQueue.ml +++ b/stm/asyncTaskQueue.ml @@ -325,7 +325,7 @@ module Make(T : Task) () = struct let response = slave_respond request in report_status "Idle"; marshal_response (Option.get !slave_oc) response; - CEphemeron.clear () + CEphemeron.clean () with | MarshalError s -> stm_pr_err Pp.(prlist str ["Fatal marshal error: "; s]); flush_all (); exit 2 |