Mercurial > urweb

comparison src/cjrize.sml @ 1021:7a4a55e05081

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use call/cc for recv and sleep
author Adam Chlipala <adamc@hcoop.net>
date Sun, 25 Oct 2009 15:29:21 -0400
parents 10114d7b7477
children 217eb87dde31
comparison
equal deleted inserted replaced
1020:dfe34fad749d 1021:7a4a55e05081
477 | L.ESignalSource _ => raise Fail "Cjrize: ESignalSource remains" 477 | L.ESignalSource _ => raise Fail "Cjrize: ESignalSource remains"
478 478
479 | L.EServerCall _ => raise Fail "Cjrize EServerCall" 479 | L.EServerCall _ => raise Fail "Cjrize EServerCall"
480 | L.ERecv _ => raise Fail "Cjrize ERecv" 480 | L.ERecv _ => raise Fail "Cjrize ERecv"
481 | L.ESleep _ => raise Fail "Cjrize ESleep" 481 | L.ESleep _ => raise Fail "Cjrize ESleep"
482 | L.ESpawn _ => raise Fail "Cjrize ESpawn"
482 483
483 fun cifyDecl ((d, loc), sm) = 484 fun cifyDecl ((d, loc), sm) =
484 case d of 485 case d of
485 L.DDatatype dts => 486 L.DDatatype dts =>
486 let 487 let