Mercurial > urweb

comparison src/compiler.sml @ 403:8084fa9216de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New implicit argument handling
author Adam Chlipala <adamc@hcoop.net>
date Tue, 21 Oct 2008 16:41:11 -0400
parents ab3177746c78
children 777317e8b2ae
comparison
equal deleted inserted replaced
402:ebf27030ae3b 403:8084fa9216de
533 if #debug job then 533 if #debug job then
534 ("/tmp/urweb.c", "/tmp/urweb.o", fn () => ()) 534 ("/tmp/urweb.c", "/tmp/urweb.o", fn () => ())
535 else 535 else
536 let 536 let
537 val dir = OS.FileSys.tmpName () 537 val dir = OS.FileSys.tmpName ()
538 val () = if OS.FileSys.access (dir, []) then
539 OS.FileSys.remove dir
540 else
541 ()
538 val cname = OS.Path.joinDirFile {dir = dir, file = "urweb.c"} 542 val cname = OS.Path.joinDirFile {dir = dir, file = "urweb.c"}
539 val oname = OS.Path.joinDirFile {dir = dir, file = "urweb.o"} 543 val oname = OS.Path.joinDirFile {dir = dir, file = "urweb.o"}
540 in 544 in
541 OS.FileSys.mkDir dir; 545 OS.FileSys.mkDir dir;
542 (cname, oname, 546 (cname, oname,