comparison src/mono_reduce.sml @ 690:01b6f2ee2ef0

Redo signal implementation to avoid memory leaks
author Adam Chlipala <adamc@hcoop.net>
date Thu, 02 Apr 2009 15:12:06 -0400
parents f73913d97a40
children 7ea0df9e56b6
comparison
equal deleted inserted replaced
689:b6a8425e1b1f 690:01b6f2ee2ef0
53 | ENone _ => false 53 | ENone _ => false
54 | ESome (_, e) => impure e 54 | ESome (_, e) => impure e
55 | EFfi _ => false 55 | EFfi _ => false
56 | EFfiApp ("Basis", "set_cookie", _) => true 56 | EFfiApp ("Basis", "set_cookie", _) => true
57 | EFfiApp ("Basis", "new_client_source", _) => true 57 | EFfiApp ("Basis", "new_client_source", _) => true
58 | EFfiApp ("Basis", "get_client_source", _) => true
58 | EFfiApp ("Basis", "set_client_source", _) => true 59 | EFfiApp ("Basis", "set_client_source", _) => true
59 | EFfiApp ("Basis", "alert", _) => true 60 | EFfiApp ("Basis", "alert", _) => true
60 | EFfiApp ("Basis", "new_channel", _) => true 61 | EFfiApp ("Basis", "new_channel", _) => true
61 | EFfiApp ("Basis", "subscribe", _) => true 62 | EFfiApp ("Basis", "subscribe", _) => true
62 | EFfiApp ("Basis", "send", _) => true 63 | EFfiApp ("Basis", "send", _) => true
272 | ENone _ => [] 273 | ENone _ => []
273 | ESome (_, e) => summarize d e 274 | ESome (_, e) => summarize d e
274 | EFfi _ => [] 275 | EFfi _ => []
275 | EFfiApp ("Basis", "set_cookie", es) => ffi es 276 | EFfiApp ("Basis", "set_cookie", es) => ffi es
276 | EFfiApp ("Basis", "new_client_source", es) => ffi es 277 | EFfiApp ("Basis", "new_client_source", es) => ffi es
278 | EFfiApp ("Basis", "get_client_source", es) => ffi es
277 | EFfiApp ("Basis", "set_client_source", es) => ffi es 279 | EFfiApp ("Basis", "set_client_source", es) => ffi es
278 | EFfiApp ("Basis", "alert", es) => ffi es 280 | EFfiApp ("Basis", "alert", es) => ffi es
279 | EFfiApp ("Basis", "new_channel", es) => ffi es 281 | EFfiApp ("Basis", "new_channel", es) => ffi es
280 | EFfiApp ("Basis", "subscribe", es) => ffi es 282 | EFfiApp ("Basis", "subscribe", es) => ffi es
281 | EFfiApp ("Basis", "send", es) => ffi es 283 | EFfiApp ("Basis", "send", es) => ffi es