From 58a120615454c5eb73b560f8d3de6a45310d4aab Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 16 Aug 2008 12:15:38 -0400
Subject: Stub WHERE support

---
 src/elab_ops.sml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/elab_ops.sml')

diff --git a/src/elab_ops.sml b/src/elab_ops.sml
index a0fa0c18..50c95ac7 100644
--- a/src/elab_ops.sml
+++ b/src/elab_ops.sml
@@ -136,6 +136,7 @@ fun hnormCon env (cAll as (c, loc)) =
            | ((CRecord (_, []), _), c2') => c2'
            | ((CConcat (c11, c12), loc), c2') =>
              hnormCon env (CConcat (c11, (CConcat (c12, c2'), loc)), loc)
+           | (c1', (CRecord (_, []), _)) => c1'
            | _ => cAll)
 
       | CProj (c, n) =>
-- 
cgit v1.2.3