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

Parent Directory | Revision Log | 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

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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