diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-01-26 17:10:26 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-01-26 17:10:26 -0500 |
| commit | c3c7a475626786988f0a367fc3c20f903f3fcbba (patch) | |
| tree | 96d21b1114d7bc1ad6bddcdd1cc009f3c8152e9d /src/elab_util.sml | |
| parent | 554a00c1e5a61d1a2a2767eb091777fbc2a7b811 (diff) | |
Parsing basic expressions
Diffstat (limited to 'src/elab_util.sml')
| -rw-r--r-- | src/elab_util.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/elab_util.sml b/src/elab_util.sml index 37d58fcc..3b608710 100644 --- a/src/elab_util.sml +++ b/src/elab_util.sml @@ -111,12 +111,12 @@ fun mapfold {kind = fk, con = fc} = S.map2 (mfc c2, fn c2' => (CApp (c1', c2'), loc))) - | CAbs (e, x, k, c) => + | CAbs (x, k, c) => S.bind2 (mfk k, fn k' => S.map2 (mfc c, fn c' => - (CAbs (e, x, k', c'), loc))) + (CAbs (x, k', c'), loc))) | CName _ => S.return2 cAll |