Mercurial > urweb

comparison src/mono_print.sml @ 1075:0657e5adc938

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Convert to task syntax
author Adam Chlipala <adamc@hcoop.net>
date Tue, 15 Dec 2009 10:19:05 -0500
parents b2311dfb3158
children 72670131dace
comparison
equal deleted inserted replaced
1074:d89f98f0b4bb 1075:0657e5adc938
489 space, 489 space,
490 string s] 490 string s]
491 | DStyle s => box [string "style", 491 | DStyle s => box [string "style",
492 space, 492 space,
493 string s] 493 string s]
494 | DInitializer e => box [string "initializer", 494 | DTask (e1, e2) => box [string "task",
495 space, 495 space,
496 p_exp env e] 496 p_exp env e1,
497 space,
498 string "=",
499 space,
500 p_exp env e2]
497 501
498 502
499 fun p_file env file = 503 fun p_file env file =
500 let 504 let
501 val (pds, _) = ListUtil.foldlMap (fn (d, env) => 505 val (pds, _) = ListUtil.foldlMap (fn (d, env) =>