Mercurial > urweb

comparison src/mono_print.sml @ 574:ac947e2f29ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Trivial use of a source
author Adam Chlipala <adamc@hcoop.net>
date Sun, 21 Dec 2008 12:56:39 -0500
parents 57018f21cd5c
children 3d56940120b1
comparison
equal deleted inserted replaced
572:57018f21cd5c 574:ac947e2f29ff
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(", 288 | ESignalBind (e1, e2) => box [string "Bind(",
289 p_exp env e1, 289 p_exp env e1,
290 string ",", 290 string ",",
291 space, 291 space,
292 p_exp env e2, 292 p_exp env e2,
293 string ")"] 293 string ")"]
294 | ESignalSource e => box [string "Source(",
295 p_exp env e,
296 string ")"]
294 297
295 and p_exp env = p_exp' false env 298 and p_exp env = p_exp' false env
296 299
297 fun p_vali env (x, n, t, e, s) = 300 fun p_vali env (x, n, t, e, s) =
298 let 301 let