diff options
| author |  Benjamin Barenblat <bbaren@mit.edu> | 2020-05-31 18:29:03 -0400 |
|---|---|---|
| committer | Benjamin Barenblat <bbaren@mit.edu> | 2020-05-31 18:29:03 -0400 |
| commit | 6cc104634ef64be3be88c1fccbe98208d95d8a1a (patch) | |
| tree | 9001e5333e808808125978a52669a8bff3639438 /src/elab_util.sml | |
| parent | 82fde07cef0e41b700b9a30137562eb05f2f2c6d (diff) | |
| parent | c2f1e1096f602b1cbd4531352f3e1ea6d656a186 (diff) | |
Merge branch 'dfsg_clean'
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 |