tests/230-signature.sml


1
2
3
4
5
6
7
8
9
10

signature SIG = sig
  val x : int
end

structure Struct :> SIG = struct
  val privateField = 41
  val x = 42
end

val _ = __builtin "exit" Struct.x