Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/driver/main.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/driver/main.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3709, Fri Apr 1 20:06:56 2016 UTC revision 3711, Fri Apr 1 22:57:00 2016 UTC
# Line 68  Line 68 
68      fun frontEnd filename = let      fun frontEnd filename = let
69            val errStrm = Error.mkErrStream filename            val errStrm = Error.mkErrStream filename
70            fun finish () = (            fun finish () = (
                 checkForErrors errStrm;  
71                  if Error.anyWarnings errStrm                  if Error.anyWarnings errStrm
72                    then Error.report (TextIO.stdErr, errStrm)                    then Error.report (TextIO.stdErr, errStrm)
73                    else ())                    else ())

Legend:
Removed from v.3709  
changed lines
  Added in v.3711

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0