diff options
author | 2008-12-21 12:30:57 -0500 | |
---|---|---|
committer | 2008-12-21 12:30:57 -0500 | |
commit | c2da8978286838c438aa471631155c4d6d8f760e (patch) | |
tree | 8193826346d3d4131730c22f1c5fb17eee1e0576 /src/mono_opt.sml | |
parent | 90bac0f10328d81ab18be3726779fed0cf77f8dd (diff) |
Handling singnal bind
Diffstat (limited to 'src/mono_opt.sml')
-rw-r--r-- | src/mono_opt.sml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/mono_opt.sml b/src/mono_opt.sml index 6c0e6e21..550a055c 100644 --- a/src/mono_opt.sml +++ b/src/mono_opt.sml @@ -360,6 +360,9 @@ fun exp e = | EWrite (EPrim (Prim.String ""), loc) => ERecord [] + | ESignalBind ((ESignalReturn e1, loc), e2) => + optExp (EApp (e2, e1), loc) + | _ => e and optExp e = #1 (U.Exp.map {typ = typ, exp = exp} e) |