diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-12-18 15:17:09 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-12-18 15:17:09 -0500 |
| commit | 3c8e408d34b54df57a700813636dd78ddc26c45b (patch) | |
| tree | 3f41e8cb1cc8bb5b84384840ebdf5b296e0c1732 /src/cjrize.sml | |
| parent | 4d07c227812b49e71de49b3e64ec6da1fbc30aed (diff) | |
Periodic tasks
Diffstat (limited to 'src/cjrize.sml')
| -rw-r--r-- | src/cjrize.sml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/cjrize.sml b/src/cjrize.sml index 0505af62..9c297fad 100644 --- a/src/cjrize.sml +++ b/src/cjrize.sml @@ -667,6 +667,7 @@ fun cifyDecl ((d, loc), sm) = val tk = case #1 e1 of L.EFfi ("Basis", "initialize") => L'.Initialize | L.EFfi ("Basis", "clientLeaves") => L'.ClientLeaves + | L.EFfiApp ("Basis", "periodic", [(L.EPrim (Prim.Int n), _)]) => L'.Periodic n | _ => (ErrorMsg.errorAt loc "Task kind not fully determined"; L'.Initialize) val (e, sm) = cifyExp (e, sm) |