regression/open.sml

   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;