diff src/cjrize.sml @ 670:f73913d97a40

Proper recv
author Adam Chlipala <adamc@hcoop.net>
date Sun, 22 Mar 2009 16:03:45 -0400
parents aa2290c32ce2
children 655bcc9b77e0
line wrap: on
line diff
--- a/src/cjrize.sml	Sun Mar 22 15:16:34 2009 -0400
+++ b/src/cjrize.sml	Sun Mar 22 16:03:45 2009 -0400
@@ -430,6 +430,7 @@
       | L.ESignalSource _ => raise Fail "Cjrize: ESignalSource remains"
 
       | L.EServerCall _ => raise Fail "Cjrize EServerCall"
+      | L.ERecv _ => raise Fail "Cjrize ERecv"
 
 fun cifyDecl ((d, loc), sm) =
     case d of