Mercurial > urweb

comparison src/mono_print.sml @ 695:500e93aa436f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sleep and better Scriptcheck
author Adam Chlipala <adamc@hcoop.net>
date Sat, 04 Apr 2009 15:56:47 -0400
parents a3ddf05fb3e3
children 70cbdcf5989b
comparison
equal deleted inserted replaced
694:7ea0df9e56b6 695:500e93aa436f
316 | ERecv (n, e, _) => box [string "Recv(", 316 | ERecv (n, e, _) => box [string "Recv(",
317 p_exp env n, 317 p_exp env n,
318 string ")[", 318 string ")[",
319 p_exp env e, 319 p_exp env e,
320 string "]"] 320 string "]"]
321 | ESleep (n, e) => box [string "Sleep(",
322 p_exp env n,
323 string ")[",
324 p_exp env e,
325 string "]"]
321 326
322 and p_exp env = p_exp' false env 327 and p_exp env = p_exp' false env
323 328
324 fun p_vali env (x, n, t, e, s) = 329 fun p_vali env (x, n, t, e, s) =
325 let 330 let