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

SCM Repository

[diderot] Diff of /branches/charisee_dev/src/compiler/high-il/normalize-ein.sml
ViewVC logotype

Diff of /branches/charisee_dev/src/compiler/high-il/normalize-ein.sml

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

revision 2449, Thu Oct 3 20:15:16 2013 UTC revision 2450, Thu Oct 3 20:17:08 2013 UTC
# Line 4  Line 4 
4      local      local
5    
6      structure E = Ein      structure E = Ein
7     structure P=Printer    (* structure P=Printer*)
8    
9      in      in
10    
# Line 358  Line 358 
358              val body' = rewriteBody body              val body' = rewriteBody body
359              in              in
360                if !changed                if !changed
361                     then (changed := false; print " \n \t => \n \t ";print( P.printbody body');print "\n";loop body')                     then (changed := false; (*print " \n \t => \n \t ";print( P.printbody body');print "\n";*)loop body')
362                  else body'                  else body'
363              end              end
364      val b = loop body      val b = loop body

Legend:
Removed from v.2449  
changed lines
  Added in v.2450

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