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

Parent Directory | Revision Log | Patch

	revision 77, Mon May 24 21:57:10 2010 UTC	revision 78, Mon May 24 22:31:49 2010 UTC
#	Line 20	Line 20
20	V{name=Atom.toString name, id=id, kind=kind, ty=([], ty)}	V{name=Atom.toString name, id=id, kind=kind, ty=([], ty)}
21	end	end
22
23		fun newPoly (name, kind, scheme) = let
24		val id = Stamp.new()
25		in
26		V{name=Atom.toString name, id=id, kind=kind, ty=scheme}
27		end
28
29	end	end

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.77   changed lines   Added in v.78

---

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