Diff of /trunk/src/compiler/high-to-mid/high-to-mid.sml

Parent Directory | Revision Log | Patch

	revision 348, Wed Sep 22 15:52:48 2010 UTC	revision 349, Fri Sep 24 00:24:20 2010 UTC
#	Line 26	Line 26
26	(* expand the field Inside operator into a image-space test *)	(* expand the field Inside operator into a image-space test *)
27	fun expandInside (env, result, pos, fld) = let	fun expandInside (env, result, pos, fld) = let
28	val pos' = lookupVar (env, pos)	val pos' = lookupVar (env, pos)
29	val fld = (case valueOf fld	val fld = (case fld
30	of SrcIL.OP(SrcOp.Field fld, []) => fld	of SrcIL.OP(SrcOp.Field fld, []) => fld
31	| _ => raise Fail "bogus field binding"	| _ => raise Fail "bogus field binding"
32	(* end case *))	(* end case *))

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.348   changed lines   Added in v.349

---

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