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

SCM Repository

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

Diff of /branches/charisee/src/compiler/high-to-mid/shiftEin.sml

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

revision 2610, Fri May 2 18:31:56 2014 UTC revision 2611, Mon May 5 21:21:12 2014 UTC
# Line 7  Line 7 
7    
8      in      in
9    
10  val testing=1  val testing=0
11  fun insert (key, value) d =fn s =>  fun insert (key, value) d =fn s =>
12      if s = key then SOME value      if s = key then SOME value
13      else d s      else d s
# Line 178  Line 178 
178    
179    
180  fun clean(params, index, body, args)=let  fun clean(params, index, body, args)=let
181            val _ = (case testing
182            of 0 => 1
183            | _ =>(print(String.concat["\n ~~~\n",P.printbody(body),Int.toString(length(index)) ,"Numer of Params ",Int.toString(length(params)) ,"Numer of args",Int.toString(length(args)) ]);1)
184            (* end case *))
185            val _=print "\n preclean param"
186      val (p',body',args')= SP.cleanParams(body, params, args)      val (p',body',args')= SP.cleanParams(body, params, args)
187        val _=print "\n post param clean "
188      val (_,i',b')=cleanIndex(body', index)      val (_,i',b')=cleanIndex(body', index)
189      val _ = (case testing      val _ = (case testing
190          of 0 => 1          of 0 => 1

Legend:
Removed from v.2610  
changed lines
  Added in v.2611

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