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 2574, Mon May 21 05:32:14 2007 UTC revision 2744, Mon Aug 27 16:38:23 2007 UTC
# Line 776  Line 776 
776  and ppEntityEnv ppstrm (entEnv,env,depth) =  and ppEntityEnv ppstrm (entEnv,env,depth) =
777      if depth <= 1      if depth <= 1
778      then pps ppstrm "<entityEnv>"      then pps ppstrm "<entityEnv>"
779      else (ppvseq ppstrm 2 ""      else (ppvseq ppstrm 0 ""
780                (fn ppstrm => fn (entVar,entity) =>                (fn ppstrm => fn (entVar,entity) =>
781                  let val {openHVBox,openHOVBox,closeBox,pps,ppi,break,newline} =                  let val {openHVBox,openHOVBox,closeBox,pps,ppi,break,newline} =
782                           en_pp ppstrm                           en_pp ppstrm

Legend:
Removed from v.2574  
changed lines
  Added in v.2744

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