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/branches/primop-branch-3/compiler/Elaborator/print/ppmod.sml
ViewVC logotype

Diff of /sml/branches/primop-branch-3/compiler/Elaborator/print/ppmod.sml

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

revision 2910, Thu Nov 22 02:36:15 2007 UTC revision 2961, Mon Mar 24 02:55:01 2008 UTC
# Line 569  Line 569 
569      end      end
570    
571  and ppFctEntity ppstrm (e, env, depth) =  and ppFctEntity ppstrm (e, env, depth) =
572      let val {stamp,paramEnts,closure,properties,tycpath,rpath,stub} = e      let val {stamp,paramEnts,closure,properties,rpath,stub} = e
573          val {openHVBox,openHOVBox,closeBox,pps,ppi,break,newline} = en_pp ppstrm          val {openHVBox,openHOVBox,closeBox,pps,ppi,break,newline} = en_pp ppstrm
574      in if depth <= 1      in if depth <= 1
575          then pps "<functor entity>"          then pps "<functor entity>"
# Line 594  Line 594 
594                  pps "lambdaty:";                  pps "lambdaty:";
595                  break{nsp=1,offset=2};                  break{nsp=1,offset=2};
596                  ppLty ppstrm ( (* ModulePropLists.fctEntityLty e,depth-1 *) );                  ppLty ppstrm ( (* ModulePropLists.fctEntityLty e,depth-1 *) );
597                  newline();          (*      newline();
598                  pps "tycpath:";                  pps "tycpath:";
599                  break{nsp=1,offset=2};                  break{nsp=1,offset=2};
600                  (case tycpath                  (case tycpath
601                    of SOME(tp) => PPType.ppTycpath env ppstrm tp                    of SOME(tp) => PPType.ppTycpath env ppstrm tp
602                     | NONE => pps "no tycpath");                     | NONE => pps "no tycpath"); *)
603                 closeBox ();                 closeBox ();
604                closeBox ())                closeBox ())
605      end      end

Legend:
Removed from v.2910  
changed lines
  Added in v.2961

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