11 lines
154 B
OCaml
11 lines
154 B
OCaml
|
(* number ; is-hole? *)
|
||
|
|
type meta = Mv of int * bool
|
||
|
|
|
||
|
|
|
||
|
|
let cMV : int ref = ref 0
|
||
|
|
|
||
|
|
let getCMV (_ : unit) =
|
||
|
|
let c = ! cMV in
|
||
|
|
cMV.contents <- c + 1;
|
||
|
|
c
|