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

SCM Repository

[diderot] Diff of /trunk/src/compiler/simplify/lift.sml
ViewVC logotype

Diff of /trunk/src/compiler/simplify/lift.sml

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

revision 1300, Thu Jun 9 21:11:47 2011 UTC revision 1301, Thu Jun 9 23:58:40 2011 UTC
# Line 41  Line 41 
41                        | SOME(S.E_Tuple ys) => mkStatics (env, statics, ys)                        | SOME(S.E_Tuple ys) => mkStatics (env, statics, ys)
42                        | SOME(S.E_Apply(_, _, ys, _)) => mkStatics (env, statics, ys)                        | SOME(S.E_Apply(_, _, ys, _)) => mkStatics (env, statics, ys)
43                        | SOME(S.E_Cons ys) => mkStatics (env, statics, ys)                        | SOME(S.E_Cons ys) => mkStatics (env, statics, ys)
44                        | SOME(S.E_Input(_, _, SOME y)) => mkStatic (env, statics, y)                        | SOME(S.E_Input(_, _, _, SOME y)) => mkStatic (env, statics, y)
45                        | SOME _ => statics                        | SOME _ => statics
46                        | NONE => raise Fail(concat[                        | NONE => raise Fail(concat[
47                              "variable ", Var.uniqueNameOf x, " has no binding"                              "variable ", Var.uniqueNameOf x, " has no binding"

Legend:
Removed from v.1300  
changed lines
  Added in v.1301

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