From 2355b20a32d8ed4924cee84a44831061b2b49b49 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 12 Jun 2008 17:16:20 -0400
Subject: Simple signature matching

---
 src/cjr_print.sml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/cjr_print.sml')

diff --git a/src/cjr_print.sml b/src/cjr_print.sml
index c7263e3b..c49d934e 100644
--- a/src/cjr_print.sml
+++ b/src/cjr_print.sml
@@ -186,9 +186,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
-- 
cgit v1.2.3