Mercurial > urweb

comparison src/main.mlton.sml @ 20:1ab48e37d0ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Some con reducing
author Adam Chlipala <adamc@hcoop.net>
date Sun, 08 Jun 2008 15:47:44 -0400
parents f1c36df29ed7
children bfa2e9ae4df8
comparison
equal deleted inserted replaced
19:e634ae817a8e 20:1ab48e37d0ef
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.testElaborate filename 29 [filename] => Compiler.testReduce filename
30 | _ => print "Bad arguments" 30 | _ => print "Bad arguments"