Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/compiler/CPS/cps/ppcps.sml
ViewVC logotype

Diff of /sml/trunk/compiler/CPS/cps/ppcps.sml

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

revision 1754, Wed Feb 9 21:48:59 2005 UTC revision 1755, Thu Feb 10 23:54:06 2005 UTC
# Line 251  Line 251 
251                      indent (n+3) e1;                      indent (n+3) e1;
252                      space n; say "else\n";                      space n; say "else\n";
253                      indent (n+3) e2)                      indent (n+3) e2)
254                | RCC(k,l,p,vl,w,t,e) =>                | RCC(k,l,p,vl,wtl,e) =>
255                     (space n;                     (space n;
256                      if k = REENTRANT_RCC then say "reentrant " else ();                      if k = REENTRANT_RCC then say "reentrant " else ();
257                      if l = "" then () else (say l; say " ");                      if l = "" then () else (say l; say " ");
258                      say "rcc("; sayvlist vl; say ") -> "; sayv(VAR w);                      say "rcc("; sayvlist vl; say ") -> ";
259                      sayt(t);nl(); f e)                      app (fn (w, t) => (sayv (VAR w); sayt(t))) wtl;
260                        nl(); f e)
261           in f           in f
262          end          end
263   in  indent   in  indent

Legend:
Removed from v.1754  
changed lines
  Added in v.1755

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