Mercurial > urweb

diff src/compiler.sml @ 32:0ff8c2728634

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Matching values in signatures
author Adam Chlipala <adamc@hcoop.net>
date Thu, 12 Jun 2008 17:35:51 -0400
parents 1c91c5e6840f
children d16ef24de78b
line wrap: on
line diff
--- a/src/compiler.sml	Thu Jun 12 17:16:20 2008 -0400
+++ b/src/compiler.sml	Thu Jun 12 17:35:51 2008 -0400
@@ -132,7 +132,8 @@
     (case elaborate ElabEnv.basis filename of
          NONE => print "Failed\n"
        | SOME (file, _) =>
-         (Print.print (ElabPrint.p_file ElabEnv.basis file);
+         (print "Succeeded\n";
+          Print.print (ElabPrint.p_file ElabEnv.basis file);
           print "\n"))
     handle ElabEnv.UnboundNamed n =>
            print ("Unbound named " ^ Int.toString n ^ "\n")