diff options
| author | Roy Frostig <[email protected]> | 2010-08-06 15:43:59 -0700 |
|---|---|---|
| committer | Roy Frostig <[email protected]> | 2010-08-06 15:44:09 -0700 |
| commit | 514fb4b321d1d019a7bfcd64518d1162878cbf07 (patch) | |
| tree | c547a407a8051b66e301a33627ed5124fb5ac653 /src/boot/fe/item.ml | |
| parent | Degrade emitter size cache to just a flat hashtable with regular flushes (sig... (diff) | |
| download | rust-514fb4b321d1d019a7bfcd64518d1162878cbf07.tar.xz rust-514fb4b321d1d019a7bfcd64518d1162878cbf07.zip | |
Accept uint literals as literal patterns.
Diffstat (limited to 'src/boot/fe/item.ml')
| -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 69fe5fc2..82ec2faf 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 |