Mercurial > urweb

comparison src/mono_print.sml @ 2252:e843a04499d4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revert to revision 2222.
author Ziv Scully <ziv@mit.edu>
date Mon, 21 Sep 2015 10:16:55 -0400
parents 25874084bf1f
children 8428c534913a
comparison
equal deleted inserted replaced
2251:25874084bf1f 2252:e843a04499d4
540 | DPolicy p => box [string "policy", 540 | DPolicy p => box [string "policy",
541 space, 541 space,
542 p_policy env p] 542 p_policy env p]
543 | DOnError _ => string "ONERROR" 543 | DOnError _ => string "ONERROR"
544 544
545 fun p_file env (file : file) = 545 fun p_file env (file, _) =
546 let 546 let
547 val (pds, _) = ListUtil.foldlMap (fn (d, env) => 547 val (pds, _) = ListUtil.foldlMap (fn (d, env) =>
548 (p_decl env d, 548 (p_decl env d,
549 E.declBinds env d)) 549 E.declBinds env d))
550 env (#decls file) 550 env file
551 in 551 in
552 p_list_sep newline (fn x => x) pds 552 p_list_sep newline (fn x => x) pds
553 end 553 end
554 554
555 end 555 end