Mercurial > urweb

diff 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
line wrap: on
line diff
--- a/src/mono_reduce.sml	Tue Dec 30 09:43:45 2008 -0500
+++ b/src/mono_reduce.sml	Tue Dec 30 10:49:42 2008 -0500
@@ -55,6 +55,7 @@
       | EFfi _ => false
       | EFfiApp ("Basis", "set_cookie", _) => true
       | EFfiApp ("Basis", "new_client_source", _) => true
+      | EFfiApp ("Basis", "set_client_source", _) => true
       | EFfiApp _ => false
       | EApp ((EFfi _, _), _) => false
       | EApp _ => true
@@ -263,6 +264,7 @@
               | EFfi _ => []
               | EFfiApp ("Basis", "set_cookie", _) => [Unsure]
               | EFfiApp ("Basis", "new_client_source", _) => [Unsure]
+              | EFfiApp ("Basis", "set_client_source", _) => [Unsure]
               | EFfiApp (_, _, es) => List.concat (map (summarize d) es)
               | EApp ((EFfi _, _), e) => summarize d e
               | EApp _ =>