Mercurial > urweb

comparison src/mono_print.sml @ 572:57018f21cd5c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Handling singnal bind
author Adam Chlipala <adamc@hcoop.net>
date Sun, 21 Dec 2008 12:30:57 -0500
parents 162d5308e34f
children ac947e2f29ff
comparison
equal deleted inserted replaced
571:86d324061ddc 572:57018f21cd5c
283 string ")"] 283 string ")"]
284 284
285 | ESignalReturn e => box [string "Return(", 285 | ESignalReturn e => box [string "Return(",
286 p_exp env e, 286 p_exp env e,
287 string ")"] 287 string ")"]
288 | ESignalBind (e1, e2) => box [string "Return(",
289 p_exp env e1,
290 string ",",
291 space,
292 p_exp env e2,
293 string ")"]
288 294
289 and p_exp env = p_exp' false env 295 and p_exp env = p_exp' false env
290 296
291 fun p_vali env (x, n, t, e, s) = 297 fun p_vali env (x, n, t, e, s) =
292 let 298 let