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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/parse-tree/parse-tree-pp.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/parse-tree/parse-tree-pp.sml

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

revision 3436, Mon Nov 16 13:36:46 2015 UTC revision 3437, Mon Nov 16 13:54:57 2015 UTC
# Line 8  Line 8 
8    
9  structure ParseTreePP : sig  structure ParseTreePP : sig
10    
11      val output : Error.err_stream * TextIO.outstream * ParseTree.program -> unit      val output : Error.err_stream -> TextIO.outstream * string * ParseTree.program -> unit
12    
13    end = struct    end = struct
14    
# Line 343  Line 343 
343                    expr (strm, e))))                    expr (strm, e))))
344            (* end case *))            (* end case *))
345    
346      fun output (errS, outS, prog) = let      fun output errS (outS, message, prog) = let
347            val strm = new{outS = outS, errS = errS, showMarks = true}            val strm = new{outS = outS, errS = errS, showMarks = true}
348            in            in
349              program (strm, prog);              program (strm, prog);

Legend:
Removed from v.3436  
changed lines
  Added in v.3437

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