diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-06-12 17:16:20 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-06-12 17:16:20 -0400 |
| commit | 2355b20a32d8ed4924cee84a44831061b2b49b49 (patch) | |
| tree | 7aa350f9a882036f84b87db938ee217663af875b /src/core_print.sml | |
| parent | 230753c968d4615b8e875940c4147d79d04d1ad3 (diff) | |
Simple signature matching
Diffstat (limited to 'src/core_print.sml')
| -rw-r--r-- | src/core_print.sml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/core_print.sml b/src/core_print.sml index a219ac4d..42cbbc7a 100644 --- a/src/core_print.sml +++ b/src/core_print.sml @@ -258,9 +258,9 @@ fun p_decl env ((d, _) : decl) = fun p_file env file = let - val (_, pds) = ListUtil.mapfoldl (fn (d, env) => - (E.declBinds env d, - p_decl env d)) + val (pds, _) = ListUtil.foldlMap (fn (d, env) => + (p_decl env d, + E.declBinds env d)) env file in p_list_sep newline (fn x => x) pds |