Mercurial > urweb

diff src/elab_ops.sml @ 207:cc68da3801bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Non-star SELECT
author Adam Chlipala <adamc@hcoop.net>
date Thu, 14 Aug 2008 18:35:08 -0400
parents 60d97de1bbe8
children 1487c712eb12
line wrap: on
line diff
--- a/src/elab_ops.sml	Thu Aug 14 15:27:35 2008 -0400
+++ b/src/elab_ops.sml	Thu Aug 14 18:35:08 2008 -0400
@@ -138,6 +138,11 @@
              hnormCon env (CConcat (c11, (CConcat (c12, c2'), loc)), loc)
            | _ => cAll)
 
+      | CProj (c, n) =>
+        (case hnormCon env c of
+             (CTuple cs, _) => hnormCon env (List.nth (cs, n - 1))
+           | _ => cAll)
+
       | _ => cAll
 
 end