Mercurial > urweb
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