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 228, Wed Aug 4 13:36:35 2010 UTC revision 229, Wed Aug 4 15:46:08 2010 UTC
# Line 45  Line 45 
45                        | SOME(S.E_Tuple ys) => mkStatics (env, statics, ys)                        | SOME(S.E_Tuple ys) => mkStatics (env, statics, ys)
46                        | SOME(S.E_Apply(_, _, ys, _)) => mkStatics (env, statics, ys)                        | SOME(S.E_Apply(_, _, ys, _)) => mkStatics (env, statics, ys)
47                        | SOME(S.E_Cons ys) => mkStatics (env, statics, ys)                        | SOME(S.E_Cons ys) => mkStatics (env, statics, ys)
48                        | SOME(S.E_Input(_, SOME y)) => mkStatic (env, statics, y)                        | SOME(S.E_Input(_, _, SOME y)) => mkStatic (env, statics, y)
49                        | SOME _ => statics                        | SOME _ => statics
50                        | NONE => raise Fail(concat["variable ", Var.uniqueNameOf x, " has no binding"])                        | NONE => raise Fail(concat["variable ", Var.uniqueNameOf x, " has no binding"])
51                      (* end case *)                      (* end case *)

Legend:
Removed from v.228  
changed lines
  Added in v.229

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