Mercurial > urweb
comparison src/mono_print.sml @ 2252:e843a04499d4
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 |