diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-08-31 13:58:47 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-08-31 13:58:47 -0400 |
| commit | 769dd2e60357a97baee02b9595340a3c0ee79fb8 (patch) | |
| tree | 5473200fdf38863018a2ba54f02b520bd02492ca /src/cjrize.sml | |
| parent | 4688519e58b0b2923e291d6a719a7f34810bfdc1 (diff) | |
Monoized and optimized initial query test
Diffstat (limited to 'src/cjrize.sml')
| -rw-r--r-- | src/cjrize.sml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/cjrize.sml b/src/cjrize.sml index aa8ae562..7dbabe74 100644 --- a/src/cjrize.sml +++ b/src/cjrize.sml @@ -280,6 +280,8 @@ fun cifyExp ((e, loc), sm) = | L.EClosure _ => (ErrorMsg.errorAt loc "Nested closure remains in code generation"; (dummye, sm)) + | L.EQuery _ => raise Fail "Cjrize EQuery" + fun cifyDecl ((d, loc), sm) = case d of L.DDatatype (x, n, xncs) => |