Mercurial > urweb

comparison src/compiler.sml @ 415:777317e8b2ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add newline at end of file
author adamc@mire.hcoop.net
date Thu, 23 Oct 2008 11:38:31 -0400
parents 8084fa9216de
children 5de838fb0950
comparison
equal deleted inserted replaced
414:cca935276869 415:777317e8b2ae
553 let 553 let
554 val outf = TextIO.openOut cname 554 val outf = TextIO.openOut cname
555 val s = TextIOPP.openOut {dst = outf, wid = 80} 555 val s = TextIOPP.openOut {dst = outf, wid = 80}
556 in 556 in
557 Print.fprint s (CjrPrint.p_file CjrEnv.empty file); 557 Print.fprint s (CjrPrint.p_file CjrEnv.empty file);
558 TextIO.output1 (outf, #"\n");
558 TextIO.closeOut outf; 559 TextIO.closeOut outf;
559 560
560 case #sql job of 561 case #sql job of
561 NONE => () 562 NONE => ()
562 | SOME sql => 563 | SOME sql =>