package async_js

  1. Overview
  2. Docs
package async_js
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file bonsai_test_handle_garbage_collector.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
open! Core

let garbage_collection_queue : (unit -> unit) Queue.t = Queue.create ()

let garbage_collect : unit -> unit =
  fun () ->
  Queue.iter garbage_collection_queue ~f:(fun f -> f ());
  let rec loop () =
    match Queue.is_empty garbage_collection_queue with
    | true -> ()
    | false ->
      Queue.dequeue_and_ignore_exn garbage_collection_queue;
      loop ()
  in
  loop ()
;;

let register_cleanup : (unit -> unit) -> unit =
  fun f -> Queue.enqueue garbage_collection_queue f
;;