---

yaml
---
r: 698
b: refs/heads/master
c: b549721
h: refs/heads/master
v: v3

Author: graydon

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: 9f0a6c21b2de2247eccbfb1b72137db5c7dd5173
+refs/heads/master: b549721a2ebb46174211630c5df3df257c1ae160

trunk/src/boot/fe/item.ml

@@ -281,7 +281,11 @@ and parse_stmts (ps:pstate) : Ast.stmt array =
                   let parse_pat ps = either_get_left (parse_pat ps) in
                   let args =
                     match peek ps with
-                        LPAREN -> paren_comma_list parse_pat ps
+                        LPAREN ->
+                          let args = paren_comma_list parse_pat ps in
+                            if Array.length args = 0
+                            then raise (err "empty pattern argument list" ps)
+                            else args
                       | _ -> [| |]
                   in
                     Left (Ast.PAT_tag (lv, args))

trunk/src/lib/map.rs

@@ -113,10 +113,10 @@ fn mk_hashmap[K, V](&hashfn[K] hasher, &eqfn[K] eqer) -> hashmap[K, V] {
             ret util.some[V](v);
           }
         }
-        case (nil[K, V]()) {
+        case (nil[K, V]) {
           ret util.none[V];
         }
-        case (deleted[K, V]()) { }
+        case (deleted[K, V]) { }
       }
       i += 1u;
     }