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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/mid-to-low/step1.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/mid-to-low/step1.sml

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

revision 2748, Wed Oct 1 21:16:56 2014 UTC revision 2749, Wed Oct 1 23:11:09 2014 UTC
# Line 207  Line 207 
207              end              end
208          | _ => S2.prodIter iterArgs          | _ => S2.prodIter iterArgs
209          (*end case*))          (*end case*))
210      in gen body      val tvector=true (*Just a testing paramter *)
211        in (case tvector
212            of true => gen body
213            | _ => S2.prodIter iterArgs
214        (*end case *))
215      end      end
216    
217  end (* local *)  end (* local *)

Legend:
Removed from v.2748  
changed lines
  Added in v.2749

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