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

SCM Repository

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

Diff of /branches/vis15/src/compiler/ast/ast-pp.sml

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

revision 3451, Sat Nov 21 21:11:21 2015 UTC revision 3452, Sat Nov 21 23:59:35 2015 UTC
# Line 212  Line 212 
212                (ppStrm, params)                (ppStrm, params)
213            end            end
214    
215      fun ppStrand (ppStrm, AST.Strand{name, params, state, init, update, stabilize}) = let      fun ppStrand (ppStrm, AST.Strand{name, params, state, initM, updateM, stabilizeM}) = let
216            fun sp () = PP.space ppStrm 1            fun sp () = PP.space ppStrm 1
217            fun nl () = PP.newline ppStrm            fun nl () = PP.newline ppStrm
218            val string = PP.string ppStrm            val string = PP.string ppStrm
# Line 235  Line 235 
235                string "{";                string "{";
236                List.app (fn vdcl => (nl(); ppVarDecl ppStrm vdcl)) state;                List.app (fn vdcl => (nl(); ppVarDecl ppStrm vdcl)) state;
237                nl();                nl();
238                Option.app (ppMethod "initially") init;                Option.app (ppMethod "initially") initM;
239                ppMethod "update" update;                ppMethod "update" updateM;
240                Option.app (ppMethod "stabilize") stabilize;                Option.app (ppMethod "stabilize") stabilizeM;
241              PP.closeBox ppStrm;              PP.closeBox ppStrm;
242              nl();              nl();
243              string "}";  nl()              string "}";  nl()

Legend:
Removed from v.3451  
changed lines
  Added in v.3452

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