From 3e42cccfaef1157ca14cd102959b867c996503a9 Mon Sep 17 00:00:00 2001
From: Ziv Scully <ziv@mit.edu>
Date: Mon, 21 Sep 2015 10:16:55 -0400
Subject: Revert to revision 2222.

---
 src/iflow.sml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/iflow.sml')

diff --git a/src/iflow.sml b/src/iflow.sml
index 6ed7e69d..b8346baa 100644
--- a/src/iflow.sml
+++ b/src/iflow.sml
@@ -1900,7 +1900,7 @@ fun check (file : file) =
         val exptd = foldl (fn ((d, _), exptd) =>
                               case d of
                                   DExport (_, _, n, _, _, _) => IS.add (exptd, n)
-                                | _ => exptd) IS.empty (#decls file)
+                                | _ => exptd) IS.empty (#1 file)
 
         fun decl (d, loc) =
             case d of
@@ -2164,7 +2164,7 @@ fun check (file : file) =
 
               | _ => ()
     in
-        app decl (#decls file)
+        app decl (#1 file)
     end
 
 val check = fn file =>
-- 
cgit v1.2.3