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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/simplify/simplify.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/simplify/simplify.sml

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

revision 1139, Fri May 6 14:08:57 2011 UTC revision 1140, Fri May 6 14:16:00 2011 UTC
# Line 8  Line 8 
8    
9  structure Simplify : sig  structure Simplify : sig
10    
11      val transform : AST.program -> Simple.program      val transform : Error.err_stream * AST.program -> Simple.program
12    
13    end = struct    end = struct
14    
# Line 232  Line 232 
232              f (exps, [], stms)              f (exps, [], stms)
233            end            end
234    
235      fun transform ast = let      fun transform (errStrm, ast) = let
236            val simple = simplifyProgram ast            val simple = simplifyProgram ast
237            val _ = SimplePP.output (Log.logFile(), simple)       (* DEBUG *)            val _ = SimplePP.output (Log.logFile(), simple)       (* DEBUG *)
238            val simple = Lift.transform simple            val simple = Lift.transform simple
239                    handle Eval.Error msg => (Error.error(errStrm, msg); simple)
240            in            in
241              simple              simple
242            end            end

Legend:
Removed from v.1139  
changed lines
  Added in v.1140

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