Source file frame0.ml

1
2
3
4
5
6
7
8
9
10
open! Core_kernel
open! Import0

include Value.Make_subtype (struct
    let name = "frame"
    let here = [%here]
    let is_in_subtype = Value.is_frame
  end)

let selected = Funcall.("selected-frame" <: nullary @-> return t)