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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/simplify/eval.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/simplify/eval.sml

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

revision 1925, Sat Jun 23 14:16:09 2012 UTC revision 1926, Sat Jun 23 18:01:57 2012 UTC
# Line 167  Line 167 
167      fun apply (env, f, mvs, xs) =      fun apply (env, f, mvs, xs) =
168            if List.all (fn x => VMap.inDomain(env, x)) xs            if List.all (fn x => VMap.inDomain(env, x)) xs
169              then (* try *)(              then (* try *)(
170                  if Var.same(f, BV.fn_load)  (* FIXME: what about fn_load? *)
171                    if Var.same(f, BV.fn_image)
172                    then let                    then let
173                      val [imgName] = xs                      val [imgName] = xs
174                      in                      in

Legend:
Removed from v.1925  
changed lines
  Added in v.1926

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