box.ml
oxbow.core
oxbow.ctl
oxbow.ipc
oxbow.layout
oxbow.ops
oxbow.river
oxbow.runtime
oxbow.state
oxbow.wire
1 2 3 4 type 'a t = { mutable body : 'a option } let fill box body = box.body <- Some body let clear box = box.body <- None
1 2 3 4
type 'a t = { mutable body : 'a option } let fill box body = box.body <- Some body let clear box = box.body <- None