diff options
author | 2016-02-13 10:43:37 -0500 | |
---|---|---|
committer | 2016-02-13 10:43:37 -0500 | |
commit | 9f47df12110b1cfd13b4057820b0788649160427 (patch) | |
tree | ecac51019e254b2a60ccd54854b95f7009dd8755 /src/iflow.sml | |
parent | f769377366c0ece0caa31e4d09179f4c9669660c (diff) | |
parent | 5ca6148aaf7b930a8868d0543f1a307d40532243 (diff) |
Merge branch 'dfsg_clean'
Diffstat (limited to 'src/iflow.sml')
-rw-r--r-- | src/iflow.sml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/iflow.sml b/src/iflow.sml index 8bde7ea3..5e8d697e 100644 --- a/src/iflow.sml +++ b/src/iflow.sml @@ -1405,8 +1405,7 @@ fun doQuery (arg : 'a doQuery) (e as (_, loc)) = fun evalPat env e (pt, _) = case pt of - PWild => env - | PVar _ => e :: env + PVar _ => e :: env | PPrim _ => env | PCon (_, pc, NONE) => (St.assert [AReln (PCon0 (patCon pc), [e])]; env) | PCon (_, pc, SOME pt) => @@ -2045,8 +2044,7 @@ fun check (file : file) = let fun doPat (p, env) = case #1 p of - PWild => env - | PVar _ => v :: env + PVar _ => v :: env | PPrim _ => env | PCon (_, _, NONE) => env | PCon (_, _, SOME p) => doPat (p, env) |