diff options
author | Adam Chlipala <adam@chlipala.net> | 2019-08-17 10:21:42 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2019-08-17 10:21:42 -0400 |
commit | 2bd1fc392c0b22f5eaa37919c6a26330dd72c7d4 (patch) | |
tree | b9c9462835c8e5c58bf3c55505466f2d67addb71 /src/elab_util.sml | |
parent | 52eb84c63a458e2a042c8fe451e96a11fdaeb4ed (diff) |
Generic traversal for Elab should visit let-bound patterns
Diffstat (limited to 'src/elab_util.sml')
-rw-r--r-- | src/elab_util.sml | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/elab_util.sml b/src/elab_util.sml index 0cdb9cc1..aa5bc6a4 100644 --- a/src/elab_util.sml +++ b/src/elab_util.sml @@ -541,11 +541,13 @@ fun mapfoldB {kind = fk, con = fc, exp = fe, bind} = and mfed ctx (dAll as (d, loc)) = case d of EDVal (p, t, e) => - S.bind2 (mfc ctx t, - fn t' => - S.map2 (mfe ctx e, - fn e' => - (EDVal (p, t', e'), loc))) + S.bind2 (mfp ctx p, + fn p' => + S.bind2 (mfc ctx t, + fn t' => + S.map2 (mfe ctx e, + fn e' => + (EDVal (p', t', e'), loc)))) | EDValRec vis => let val ctx = foldl (fn ((x, t, _), ctx) => bind (ctx, RelE (x, t))) ctx vis |