Mercurial > urweb

comparison src/mono_reduce.sml @ 577:3d56940120b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Setting a source server-side
author Adam Chlipala <adamc@hcoop.net>
date Tue, 30 Dec 2008 10:49:42 -0500
parents ac947e2f29ff
children 1e589a60b86f
comparison
equal deleted inserted replaced
576:813f1e78d9d0 577:3d56940120b1
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", "set_client_source", _) => true
58 | EFfiApp _ => false 59 | EFfiApp _ => false
59 | EApp ((EFfi _, _), _) => false 60 | EApp ((EFfi _, _), _) => false
60 | EApp _ => true 61 | EApp _ => true
61 62
62 | EUnop (_, e) => impure e 63 | EUnop (_, e) => impure e
261 | ENone _ => [] 262 | ENone _ => []
262 | ESome (_, e) => summarize d e 263 | ESome (_, e) => summarize d e
263 | EFfi _ => [] 264 | EFfi _ => []
264 | EFfiApp ("Basis", "set_cookie", _) => [Unsure] 265 | EFfiApp ("Basis", "set_cookie", _) => [Unsure]
265 | EFfiApp ("Basis", "new_client_source", _) => [Unsure] 266 | EFfiApp ("Basis", "new_client_source", _) => [Unsure]
267 | EFfiApp ("Basis", "set_client_source", _) => [Unsure]
266 | EFfiApp (_, _, es) => List.concat (map (summarize d) es) 268 | EFfiApp (_, _, es) => List.concat (map (summarize d) es)
267 | EApp ((EFfi _, _), e) => summarize d e 269 | EApp ((EFfi _, _), e) => summarize d e
268 | EApp _ => 270 | EApp _ =>
269 let 271 let
270 fun unravel (e, ls) = 272 fun unravel (e, ls) =