Mercurial > urweb

diff src/compiler.sml @ 325:e457d8972ff1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Crud listing IDs
author Adam Chlipala <adamc@hcoop.net>
date Thu, 11 Sep 2008 17:41:52 -0400
parents 6a4e365db60c
children a94a79820d49
line wrap: on
line diff
--- a/src/compiler.sml	Thu Sep 11 13:06:51 2008 -0400
+++ b/src/compiler.sml	Thu Sep 11 17:41:52 2008 -0400
@@ -355,8 +355,10 @@
 val elaborate = {
     func = fn file => let
                   val basis = #func parseUrs "lib/basis.urs"
+                  val topSgn = #func parseUrs "lib/top.urs"
+                  val topStr = #func parseUr "lib/top.ur"
               in
-                  Elaborate.elabFile basis ElabEnv.empty file
+                  Elaborate.elabFile basis topStr topSgn ElabEnv.empty file
               end,
     print = ElabPrint.p_file ElabEnv.empty
 }