diff options
author | 2009-03-19 16:34:13 -0400 | |
---|---|---|
committer | 2009-03-19 16:34:13 -0400 | |
commit | 9e730b9a1aa4db311088a355e7e8601c6a998467 (patch) | |
tree | 286b56b8fe24a04c3c2a26f13d6fdc9c845d7452 /src/monoize.sml | |
parent | 1f530c51813cbeee1b166e5e75058eacb313f306 (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" => |