diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-03-19 16:34:13 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-03-19 16:34:13 -0400 |
| commit | aa8373e15c46685b6d6a951342205fd28dc52f1a (patch) | |
| tree | 286b56b8fe24a04c3c2a26f13d6fdc9c845d7452 /src/monoize.sml | |
| parent | dabb624de9553e95431a22c70a9d707b02965711 (diff) | |
Dummy message delivery to clients
Diffstat (limited to 'src/monoize.sml')
| -rw-r--r-- | src/monoize.sml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index 01f18baf..88abf0c2 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -1924,7 +1924,8 @@ fun monoExp (env, st, fm) (all as (e, loc)) = end in case tag of - "body" => normal ("body", NONE, + "body" => normal ("body", + SOME (L'.EFfiApp ("Basis", "get_listener", [(L'.ERecord [], loc)]), loc), SOME (L'.EFfiApp ("Basis", "get_script", [(L'.ERecord [], loc)]), loc)) | "dyn" => |