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 1443, Mon Jul 11 10:36:10 2011 UTC revision 1444, Mon Jul 11 12:11:53 2011 UTC
# Line 168  Line 168 
168            val string = PP.string ppStrm            val string = PP.string ppStrm
169            fun var x = string(Var.nameOf x)            fun var x = string(Var.nameOf x)
170            fun ppMethod (AST.M_Method(name, AST.S_Block stms)) = (            fun ppMethod (AST.M_Method(name, AST.S_Block stms)) = (
171                  nl(); string(Atom.toString name); nl(); ppBlock (ppStrm, stms))                  nl(); string(MethodName.toString name); nl(); ppBlock (ppStrm, stms))
172              | ppMethod (AST.M_Method(name, stm)) = (              | ppMethod (AST.M_Method(name, stm)) = (
173                  nl(); string(Atom.toString name); nl(); ppBlock (ppStrm, [stm]))                  nl(); string(MethodName.toString name); nl(); ppBlock (ppStrm, [stm]))
174            in            in
175              PP.openHBox ppStrm;              PP.openHBox ppStrm;
176                string "strand"; sp(); string(Atom.toString name); sp();                string "strand"; sp(); string(Atom.toString name); sp();

Legend:
Removed from v.1443  
changed lines
  Added in v.1444

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