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

SCM Repository

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

Diff of /trunk/src/compiler/simplify/simple-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 207  Line 207 
207            val string = PP.string ppStrm            val string = PP.string ppStrm
208            fun var x = string(Var.nameOf x)            fun var x = string(Var.nameOf x)
209            fun ppMethod (S.Method(name, body)) = (            fun ppMethod (S.Method(name, body)) = (
210                  nl(); string(Atom.toString name); nl(); ppBlock (ppStrm, [], body))                  nl(); string(MethodName.toString name); nl(); ppBlock (ppStrm, [], body))
211            in            in
212              PP.openHBox ppStrm;              PP.openHBox ppStrm;
213                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