Mercurial > urweb

diff src/iflow.sml @ 2251:25874084bf1f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make Mono.file a record for readability upon extension.
author Ziv Scully <ziv@mit.edu>
date Sun, 13 Sep 2015 17:02:17 -0400
parents 278e10629ba1
children e843a04499d4
line wrap: on
line diff
--- a/src/iflow.sml	Sun Sep 13 16:02:45 2015 -0400
+++ b/src/iflow.sml	Sun Sep 13 17:02:17 2015 -0400
@@ -1900,7 +1900,7 @@
         val exptd = foldl (fn ((d, _), exptd) =>
                               case d of
                                   DExport (_, _, n, _, _, _) => IS.add (exptd, n)
-                                | _ => exptd) IS.empty (#1 file)
+                                | _ => exptd) IS.empty (#decls file)
 
         fun decl (d, loc) =
             case d of
@@ -2164,7 +2164,7 @@
 
               | _ => ()
     in
-        app decl (#1 file)
+        app decl (#decls file)
     end
 
 val check = fn file =>