Mercurial > urweb

comparison src/mono_reduce.sml @ 905:7a4b026e45dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Library improvements; proper list [un]urlification; remove server-side ServerCalls; eta reduction in type inference
author Adam Chlipala <adamc@hcoop.net>
date Sun, 09 Aug 2009 16:13:27 -0400
parents e8594cfa3236
children 8e540df3294d
comparison
equal deleted inserted replaced
904:6d9538ce94d8 905:7a4b026e45dd
352 | EJavaScript (_, e) => summarize d e 352 | EJavaScript (_, e) => summarize d e
353 | ESignalReturn e => summarize d e 353 | ESignalReturn e => summarize d e
354 | ESignalBind (e1, e2) => summarize d e1 @ summarize d e2 354 | ESignalBind (e1, e2) => summarize d e1 @ summarize d e2
355 | ESignalSource e => summarize d e 355 | ESignalSource e => summarize d e
356 356
357 | EServerCall (e, ek, _, _) => summarize d e @ summarize d ek @ [Unsure] 357 | EServerCall (e, ek, _, _, _) => summarize d e @ summarize d ek @ [Unsure]
358 | ERecv (e, ek, _) => summarize d e @ summarize d ek @ [Unsure] 358 | ERecv (e, ek, _) => summarize d e @ summarize d ek @ [Unsure]
359 | ESleep (e, ek) => summarize d e @ summarize d ek @ [Unsure] 359 | ESleep (e, ek) => summarize d e @ summarize d ek @ [Unsure]
360 in 360 in
361 (*Print.prefaces "Summarize" 361 (*Print.prefaces "Summarize"
362 [("e", MonoPrint.p_exp MonoEnv.empty (e, ErrorMsg.dummySpan)), 362 [("e", MonoPrint.p_exp MonoEnv.empty (e, ErrorMsg.dummySpan)),