diff options
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" => |