Mercurial > urweb

comparison src/mono_print.sml @ 910:8e540df3294d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
grid1 compiles but gets stuck in JS
author Adam Chlipala <adamc@hcoop.net>
date Tue, 25 Aug 2009 13:57:56 -0400
parents 7a4b026e45dd
children dfe34fad749d
comparison
equal deleted inserted replaced
909:1d3f60e74ec7 910:8e540df3294d
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 "]"]