166_non_val_constants.mlw 96 Bytes
Newer Older
MARCHE Claude's avatar
MARCHE Claude committed
1 2 3 4 5
type t
constant a : t
val function f t : int
use ref.Ref
let test (x:ref int) : unit = x := f a