diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-08-16 12:15:38 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-08-16 12:15:38 -0400 |
| commit | 58a120615454c5eb73b560f8d3de6a45310d4aab (patch) | |
| tree | 4d852c455a49058e8ade712c4e0e4bdd1a943697 /src/elab_ops.sml | |
| parent | 3c28b7024034c5969525035f8b602272441dd323 (diff) | |
Stub WHERE support
Diffstat (limited to 'src/elab_ops.sml')
| -rw-r--r-- | src/elab_ops.sml | 1 |
1 files changed, 1 insertions, 0 deletions
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) => |