label_scope.mlw 151 Bytes
Newer Older
1
2
3

module T

4
  use ref.Ref
5
6
7
8
9
10
11

  let f () =
    label Foo in
    let x = ref 0 in
    assert { 42 = !x at Foo } (* variable x does not exist at Foo *)

end