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

SCM Repository

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

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

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

revision 4409, Fri Aug 12 17:46:21 2016 UTC revision 4410, Fri Aug 12 18:28:32 2016 UTC
# Line 104  Line 104 
104          of Ein.TEN(0,_)=> (change,orig, place+1,  done@[newEinApp])          of Ein.TEN(0,_)=> (change,orig, place+1,  done@[newEinApp])
105          | _ => let          | _ => let
106              val rtnArgs=done@newArgs              val rtnArgs=done@newArgs
             val _ = print "\n pre app"  
107  (* DEBUG val _ = print(String.concat["\n\t** orig",P.printerE(orig),"\n\tnewE:", P.printerE(newE), " \n\tplace:", Int.toString(place), "newArgs", Int.toString(length(newArgs)), " done:", Int.toString(length(done))])*)  (* DEBUG val _ = print(String.concat["\n\t** orig",P.printerE(orig),"\n\tnewE:", P.printerE(newE), " \n\tplace:", Int.toString(place), "newArgs", Int.toString(length(newArgs)), " done:", Int.toString(length(done))])*)
108    
109              val (c,subst)=App.app(orig,place,newE,newArgs,done)              val (c,subst)=App.app(orig,place,newE,newArgs,done)

Legend:
Removed from v.4409  
changed lines
  Added in v.4410

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