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/elaborate/elabtop.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/Elaborator/elaborate/elabtop.sml

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

revision 1343, Wed Aug 13 17:44:22 2003 UTC revision 1344, Wed Aug 13 18:04:08 2003 UTC
# Line 136  Line 136 
136        let val _ = debugPrint("top level open: ",        let val _ = debugPrint("top level open: ",
137                      (fn pps => fn paths =>                      (fn pps => fn paths =>
138                         PPUtil.ppSequence pps                         PPUtil.ppSequence pps
139                           {sep=(fn pps => PP.add_string pps ","),                           {sep=(fn pps => PP.string pps ","),
140                            pr=PPUtil.ppSymPath, style=PP.INCONSISTENT}                            pr=PPUtil.ppSymPath, style=PPUtil.INCONSISTENT}
141                         (List.map SymPath.SPATH paths)), paths)                         (List.map SymPath.SPATH paths)), paths)
142    
143            val err = error region            val err = error region

Legend:
Removed from v.1343  
changed lines
  Added in v.1344

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