Diff of /trunk/src/compiler/ast/var.sml

Parent Directory | Revision Log | Patch

	revision 135, Fri Jul 2 21:57:47 2010 UTC	revision 136, Wed Jul 7 20:38:52 2010 UTC
#	Line 27	Line 27
27	V{name=Atom.toString name, id=id, kind=kind, ty=scheme}	V{name=Atom.toString name, id=id, kind=kind, ty=scheme}
28	end	end
29
30		fun compare (V{id=a, ...}, V{id=b, ...}) = Stamp.compare(a, b)
31		fun same (V{id=a, ...}, V{id=b, ...}) = Stamp.same(a, b)
32		fun hash (V{id, ...}) = Stamp.hash id
33
34		local
35		structure V =
36		struct
37		type ord_key = var
38		val compare = compare
39		end
40		in
41		structure Map = RedBlackMapFn (V)
42		structure Set = RedBlackSetFn (V)
43		end
44
45	end	end

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.135   changed lines   Added in v.136

---

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