Diff of /trunk/src/compiler/ast/ast-pp.sml

Parent Directory | Revision Log | Patch

	revision 169, Thu Jul 22 20:07:37 2010 UTC	revision 170, Sat Jul 24 13:30:47 2010 UTC
#	Line 47	Line 47
47	val string = PP.string ppStrm	val string = PP.string ppStrm
48	fun var x = string(Var.nameOf x)	fun var x = string(Var.nameOf x)
49	fun pp e = (case e	fun pp e = (case e
50	of AST.E_Var(x, [], _) => var x	of AST.E_Var x => var x
	| AST.E_Var(x, mvs, ty) => (var x; ppTyArgs (ppStrm, mvs))
51	| AST.E_Lit lit => string (Literal.toString lit)	| AST.E_Lit lit => string (Literal.toString lit)
52	| AST.E_Tuple es => ppArgs (ppStrm, es)	| AST.E_Tuple es => ppArgs (ppStrm, es)
53	| AST.E_Apply(f, [], args, _) => (var f; sp(); ppArgs (ppStrm, args))	| AST.E_Apply(f, [], args, _) => (var f; sp(); ppArgs (ppStrm, args))

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.169   changed lines   Added in v.170

---

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