Mercurial > urweb

comparison src/mono_print.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 44c2c089ca15
children 8e540df3294d
comparison
equal deleted inserted replaced
904:6d9538ce94d8 905:7a4b026e45dd
333 string ")"] 333 string ")"]
334 | ESignalSource e => box [string "Source(", 334 | ESignalSource e => box [string "Source(",
335 p_exp env e, 335 p_exp env e,
336 string ")"] 336 string ")"]
337 337
338 | EServerCall (n, e, _, _) => box [string "Server(", 338 | EServerCall (n, e, _, _, _) => box [string "Server(",
339 p_exp env n, 339 p_exp env n,
340 string ")[", 340 string ")[",
341 p_exp env e, 341 p_exp env e,
342 string "]"] 342 string "]"]
343 | ERecv (n, e, _) => box [string "Recv(", 343 | ERecv (n, e, _) => box [string "Recv(",
344 p_exp env n, 344 p_exp env n,
345 string ")[", 345 string ")[",
346 p_exp env e, 346 p_exp env e,
347 string "]"] 347 string "]"]