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 3350, Tue Oct 27 22:56:49 2015 UTC revision 3355, Thu Oct 29 22:08:40 2015 UTC
# Line 263  Line 263 
263    
264      val _=testp["\n******** Start Normalize: \n",P.printerE ee,"\n*****\n"]      val _=testp["\n******** Start Normalize: \n",P.printerE ee,"\n*****\n"]
265      fun loop(body ,count) = let      fun loop(body ,count) = let
266          val _=raise Fail"do not use dev branch"          (*val _=raise Fail"do not use dev branch"*)
267          val _= testp["\n\n N =>",Int.toString(count),"--",P.printbody(body)]          val _= testp["\n\n N =>",Int.toString(count),"--",P.printbody(body)]
268          val body' = rewriteBody body          val body' = rewriteBody body
269    

Legend:
Removed from v.3350  
changed lines
  Added in v.3355

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