Mercurial > urweb

comparison src/main.mlton.sml @ 1540:659a2f71f5e5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Compiler frees as much memory as possible before passing control to C compiler
author Adam Chlipala <adam@chlipala.net>
date Mon, 15 Aug 2011 11:26:10 -0400
parents 7efcf8f4a44a
children 3cfc79f92db7
comparison
equal deleted inserted replaced
1539:dde3bd82cb3d 1540:659a2f71f5e5
29 val tc = ref false 29 val tc = ref false
30 val sources = ref ([] : string list) 30 val sources = ref ([] : string list)
31 val demo = ref (NONE : (string * bool) option) 31 val demo = ref (NONE : (string * bool) option)
32 val tutorial = ref false 32 val tutorial = ref false
33 val css = ref false 33 val css = ref false
34
35 val () = Compiler.beforeC := MLton.GC.pack
34 36
35 fun printVersion () = (print (Config.versionString ^ "\n"); 37 fun printVersion () = (print (Config.versionString ^ "\n");
36 OS.Process.exit OS.Process.success) 38 OS.Process.exit OS.Process.success)
37 fun printNumericVersion () = (print (Config.versionNumber ^ "\n"); 39 fun printNumericVersion () = (print (Config.versionNumber ^ "\n");
38 OS.Process.exit OS.Process.success) 40 OS.Process.exit OS.Process.success)