fixed 'make bench'

new directory bench/typing/x-bad containing bugs not yet fixed

bench/bench

@@ -190,7 +190,7 @@ goods bench/typing/bad --parse-only
 goods bench/programs/bad-typing --parse-only
 bads bench/typing/bad --type-only
 bads bench/programs/bad-typing --type-only
-bads examples/bad-bts
+goods bench/typing/x-bad --type-only
 echo ""
 
 echo "=== Checking good files ==="

bench/typing/x-bad/60_at_in_tasks.mlw

+
+module T
+
+  goal g : forall x:int. x = (x at L)
+
+end

bench/typing/x-bad/label_scope.mlw

+
+module T
+
+  use import ref.Ref
+
+  let f () =
+    label Foo in
+    let x = ref 0 in
+    assert { 42 = !x at Foo } (* variable x does not exist at Foo *)
+
+end

bench/typing/x-bad/unbound_label.mlw

+
+module T
+
+  let f () = assert { 42 = 42 at Foo }
+
+end

examples/bad-bts/60_at_in_tasks.mlw

-
-
-theory T
-
-goal g : forall x:int. x = (x at L)
-
-end