[hcoop/debian/mlton.git] / regression / open.sml

(* open.sml *)

(* Checks scoping rules of open. *)

structure A = struct structure B = struct val x = 1 end end
structure B = struct val x = 0.1 end

open A B

val y = B.x + 1
val z = x + 1.0;
Commit	Line	Data
7f918cf1 CE	1	(* open.sml *)
	2
	3	(* Checks scoping rules of open. *)
	4
	5	structure A = struct structure B = struct val x = 1 end end
	6	structure B = struct val x = 0.1 end
	7
	8	open A B
	9
	10	val y = B.x + 1
	11	val z = x + 1.0;