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

SCM Repository

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

Diff of /branches/vis15/src/compiler/high-opt/normalize.sml

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

revision 3535, Thu Dec 24 15:45:26 2015 UTC revision 3548, Tue Jan 5 20:38:39 2016 UTC
# Line 58  Line 58 
58     *)     *)
59      fun rewriteEin (params, place, changed, newE, newArgs, done, newEinApp, orig, lhs) = (      fun rewriteEin (params, place, changed, newE, newArgs, done, newEinApp, orig, lhs) = (
60            case List.nth(params, place)            case List.nth(params, place)
61             of Ein.TEN(0, _) => (changed, orig, place+1, done@[newEinApp])             of Ein.TEN(false, _) => (changed, orig, place+1, done@[newEinApp])
62              | _ => let              | _ => let
63                  val rtnArgs = done @ newArgs                  val rtnArgs = done @ newArgs
64                  val (c, subst) = Apply.apply(orig, place, newE)                  val (c, subst) = Apply.apply(orig, place, newE)

Legend:
Removed from v.3535  
changed lines
  Added in v.3548

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