diff options
| author | Roy Frostig <rfrostig@mozilla.com> | 2010-08-06 15:43:59 -0700 |
|---|---|---|
| committer | Roy Frostig <rfrostig@mozilla.com> | 2010-08-06 15:44:09 -0700 |
| commit | 514fb4b321d1d019a7bfcd64518d1162878cbf07 (patch) | |
| tree | c547a407a8051b66e301a33627ed5124fb5ac653 /src/boot | |
| parent | db561b52fff4466ac4de4fc807ebc0c253c7cd73 (diff) | |
Accept uint literals as literal patterns.
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/fe/item.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/boot/fe/item.ml b/src/boot/fe/item.ml index 69fe5fc225d..82ec2fafc10 100644 --- a/src/boot/fe/item.ml +++ b/src/boot/fe/item.ml @@ -253,7 +253,10 @@ and parse_stmts (ps:pstate) : Ast.stmt array = let lv = name_to_lval apos bpos name in Ast.PAT_tag (lv, paren_comma_list parse_pat ps) - | LIT_INT _ | LIT_CHAR _ | LIT_BOOL _ -> + | LIT_INT _ + | LIT_UINT _ + | LIT_CHAR _ + | LIT_BOOL _ -> Ast.PAT_lit (Pexp.parse_lit ps) | UNDERSCORE -> bump ps; Ast.PAT_wild |