Mercurial > urweb

diff src/elab_util.sml @ 8:a455a9f85cc3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Parsing basic expressions
author Adam Chlipala <adamc@hcoop.net>
date Sat, 26 Jan 2008 17:10:26 -0500
parents 38bf996e1c2e
children 14b533dbe6cc
line wrap: on
line diff
--- a/src/elab_util.sml	Sat Jan 26 16:51:39 2008 -0500
+++ b/src/elab_util.sml	Sat Jan 26 17:10:26 2008 -0500
@@ -111,12 +111,12 @@
                          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