diff options
| author | Maxime Dénès | 2017-10-03 12:14:23 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-10-03 12:14:23 +0200 |
| commit | 723b1cbb1a3b0933abf5a78a2fbcdd7bdfc5cc23 (patch) | |
| tree | 83a36c2063b2c53da24d01bf37f4144e06232260 /lib/util.mli | |
| parent | 9bcfb39b38fc6ed2973ecf0d510805f731442203 (diff) | |
| parent | 8b07b9296dac108d7a3d44db227bb1c6042db555 (diff) | |
Merge PR #1015: Adding a function to be typically used to pass values from an OCaml "when" clause to the r.h.s of the matching clause
Diffstat (limited to 'lib/util.mli')
| -rw-r--r-- | lib/util.mli | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/util.mli b/lib/util.mli index d910e7e28e..c54f5825cd 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -137,3 +137,8 @@ val sym : ('a, 'b) eq -> ('b, 'a) eq val open_utf8_file_in : string -> in_channel (** Open an utf-8 encoded file and skip the byte-order mark if any. *) + +val set_temporary_memory : unit -> ('a -> 'a) * (unit -> 'a) +(** A trick which can typically be used to store on the fly the + computation of values in the "when" clause of a "match" then + retrieve the evaluated result in the r.h.s of the clause *) |