Mercurial > urweb
diff 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 |
line wrap: on
line diff
--- a/src/mono_print.sml Sun Sep 13 17:02:17 2015 -0400 +++ b/src/mono_print.sml Mon Sep 21 10:16:55 2015 -0400 @@ -542,12 +542,12 @@ p_policy env p] | DOnError _ => string "ONERROR" -fun p_file env (file : file) = +fun p_file env (file, _) = let val (pds, _) = ListUtil.foldlMap (fn (d, env) => (p_decl env d, E.declBinds env d)) - env (#decls file) + env file in p_list_sep newline (fn x => x) pds end