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/src/compiler/Elaborator/print/ppabsyn.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/Elaborator/print/ppabsyn.sml

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

revision 1640, Fri Oct 1 15:20:40 2004 UTC revision 1641, Wed Oct 6 20:18:55 2004 UTC
# Line 315  Line 315 
315                 ppType env ppstrm t;                 ppType env ppstrm t;
316                 rpcond(atom);                 rpcond(atom);
317                closeBox ppstrm)                closeBox ppstrm)
318            | ppExp'(HANDLEexp(exp, HANDLER(FNexp(rules,_))),atom,d) =            | ppExp'(HANDLEexp(exp, (rules,_)),atom,d) =
319               (openStyleBox CONSISTENT ppstrm (PP.Rel 0);               (openStyleBox CONSISTENT ppstrm (PP.Rel 0);
320                 lpcond(atom);                 lpcond(atom);
321                 ppExp'(exp,atom,d-1); newline ppstrm; ppsay "handle ";                 ppExp'(exp,atom,d-1); newline ppstrm; ppsay "handle ";
# Line 324  Line 324 
324                    (fn ppstrm => fn r => ppRule context ppstrm (r,d-1)), rules);                    (fn ppstrm => fn r => ppRule context ppstrm (r,d-1)), rules);
325                 rpcond(atom);                 rpcond(atom);
326                closeBox ppstrm)                closeBox ppstrm)
           | ppExp'(HANDLEexp(exp, HANDLER _),_,d) =  
               bug "ppExp'(HANDLEexp)"  
327            | ppExp'(RAISEexp(exp,_),atom,d) =            | ppExp'(RAISEexp(exp,_),atom,d) =
328                (openStyleBox CONSISTENT ppstrm (PP.Rel 0);                (openStyleBox CONSISTENT ppstrm (PP.Rel 0);
329                 lpcond(atom);                 lpcond(atom);

Legend:
Removed from v.1640  
changed lines
  Added in v.1641

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