Source file yield.ml

1
2
3
4
5
6
7
open! Base
open! Portable_kernel

type t = Sync.t

let of_sync sync = sync
let yield = Sync.yield