lib/Object.ml at main · noahbogart.com/exapunks

noahbogart.com / exapunks_vm

fork atom

standalone exapunks vm in ocaml

fork atom

exapunks_vm / lib / Object.ml

at main 10 lines 316 B view raw

wrap content

noahbogart.com Switch from handbuilt parser to MParser 5mo ago

d4fb9fd7

 1(* This Source Code Form is subject to the terms of the Mozilla Public
 2   License, v. 2.0. If a copy of the MPL was not distributed with this
 3   file, You can obtain one at https://mozilla.org/MPL/2.0/. *)
 4
 5type t = Common.obj
 6
 7let name (obj : t) =
 8  match obj with
 9  | E_o exa -> exa.name
10  | F_o file -> file.name