Mercurial > urweb

comparison src/main.mlton.sml @ 27:145b536fc702

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update main.mlton
author Adam Chlipala <adamc@hcoop.net>
date Tue, 10 Jun 2008 16:05:10 -0400
parents bfa2e9ae4df8
children a6e185c7c428
comparison
equal deleted inserted replaced
26:4ab19c19665f 27:145b536fc702
24 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 24 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
25 * POSSIBILITY OF SUCH DAMAGE. 25 * POSSIBILITY OF SUCH DAMAGE.
26 *) 26 *)
27 27
28 val () = case CommandLine.arguments () of 28 val () = case CommandLine.arguments () of
29 [filename] => Compiler.testShake filename 29 [filename] => Compiler.testCloconv filename
30 | _ => print "Bad arguments" 30 | _ => print "Bad arguments"