diff options
author | Pau Ruiz Safont <pau.ruizsafont@cloud.com> | 2023-02-24 20:49:56 +0000 |
---|---|---|
committer | Pau Ruiz Safont <pau.ruizsafont@cloud.com> | 2023-02-24 20:49:56 +0000 |
commit | bb315316b434d8cc3bd3afcf4690da3b02e63a14 (patch) | |
tree | e620fb3e9e882d9f3eac11b1d9e8bf404d75b762 /stdlib/gc.ml | |
parent | 69a7cdbc03a200ebd9af8e2bec628c5f9c32610f (diff) | |
download | ocaml-bb315316b434d8cc3bd3afcf4690da3b02e63a14.tar.gz |
stdlib: enable compilation using dune
Change the order in which Fun.protect is called in gc.ml
Building using make compiles gc.ml without -no-labels, but other modules
in the library without it. Dune forces to compile all modules in the
library with -no-labels, hence forcing the order of parameters to match
the order of declaration
Diffstat (limited to 'stdlib/gc.ml')
-rw-r--r-- | stdlib/gc.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/gc.ml b/stdlib/gc.ml index 0ac8ea0902..8bb07719c3 100644 --- a/stdlib/gc.ml +++ b/stdlib/gc.ml @@ -109,7 +109,7 @@ type alarm_rec = {active : alarm; f : unit -> unit} let rec call_alarm arec = if Atomic.get arec.active then begin let finally () = finalise call_alarm arec in - Fun.protect arec.f ~finally + Fun.protect ~finally arec.f end |