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 231, Thu Aug 5 16:11:37 2010 UTC revision 232, Thu Aug 5 16:18:44 2010 UTC
# Line 127  Line 127 
127                      Var.uniqueNameOf f, "(", String.concatWith "," (List.map toString xs),                      Var.uniqueNameOf f, "(", String.concatWith "," (List.map toString xs),
128                      ") fails with exception ", exnName ex                      ") fails with exception ", exnName ex
129                    ]))                    ]))
130              | S.E_Cons xs =>              | S.E_Cons xs => raise Fail "TODO: E_Cons"
131              | S.E_Input(ty, name, optDefault) => let              | S.E_Input(ty, name, optDefault) => let
132                  val optDefault = Option.map (evalVar env) optDefault                  val optDefault = Option.map (evalVar env) optDefault
133                  in                  in

Legend:
Removed from v.231  
changed lines
  Added in v.232

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