Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /trunk/src/compiler/ast/ast-pp.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 164, Tue Jul 20 18:56:04 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))

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

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