module C = Common
module V = Value
open List
type mentry = {m: C.meta; ty: V.value}
let metaEntries : mentry list ref = ref []
let getMetaEntry (i : int) =
nth (! metaEntries) i
let getMetaType (i : int) = (getMetaEntry i).ty