Mercurial > urweb

comparison src/main.mlton.sml @ 57:618b7054f931

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update main.mlton for group compilation
author Adam Chlipala <adamc@hcoop.net>
date Sun, 22 Jun 2008 15:23:16 -0400
parents a6e185c7c428
children 8921f0344193
comparison
equal deleted inserted replaced
56:d3cc191cb25f 57:618b7054f931
23 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 23 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
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 () = Compiler.testCjrize (CommandLine.arguments ())
29 [filename] => Compiler.testCjrize filename
30 | _ => print "Bad arguments"