Mercurial > urweb

diff src/main.mlton.sml @ 1:4202f6eda946

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial parsing and pretty-printing
author Adam Chlipala <adamc@hcoop.net>
date Sat, 26 Jan 2008 12:35:32 -0500
parents 502c6d622477
children f1c36df29ed7
line wrap: on
line diff
--- a/src/main.mlton.sml	Sat Jan 26 10:06:22 2008 -0500
+++ b/src/main.mlton.sml	Sat Jan 26 12:35:32 2008 -0500
@@ -25,3 +25,6 @@
  * POSSIBILITY OF SUCH DAMAGE.
  *)
 
+val () = case CommandLine.arguments () of
+             [filename] => Compiler.testParse filename
+           | _ => print "Bad arguments"