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/cm/parse/parse.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/parse/parse.sml

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

revision 348, Tue Jun 22 05:43:46 1999 UTC revision 353, Thu Jun 24 09:43:28 1999 UTC
# Line 65  Line 65 
65                          in                          in
66                              PrettyPrint.add_string pps s;                              PrettyPrint.add_string pps s;
67                              PrettyPrint.add_string pps ": importing ";                              PrettyPrint.add_string pps ": importing ";
68                              PrettyPrint.add_string pps (AbsPath.spec g0);                              PrettyPrint.add_string pps (AbsPath.specOf g0);
69                              PrettyPrint.add_newline pps;                              PrettyPrint.add_newline pps;
70                              loop (g, t)                              loop (g, t)
71                          end                          end
# Line 76  Line 76 
76              in              in
77                  EM.error s (p1, p2) EM.COMPLAIN                  EM.error s (p1, p2) EM.COMPLAIN
78                             ("group hierarchy forms a cycle with " ^                             ("group hierarchy forms a cycle with " ^
79                              AbsPath.spec group)                              AbsPath.specOf group)
80                             pphist                             pphist
81              end              end
82    
# Line 99  Line 99 
99    
100              (* normal processing -- used when there is no cycle to report *)              (* normal processing -- used when there is no cycle to report *)
101              fun normal_processing () = let              fun normal_processing () = let
102                  val context = AbsPath.relativeContext (AbsPath.dir group)                  val context = AbsPath.sameDirContext group
103                  val filename = AbsPath.name group                  val filename = AbsPath.name group
104                  val _ = Say.vsay ["[scanning ", filename, "]\n"]                  val _ = Say.vsay ["[scanning ", filename, "]\n"]
105    

Legend:
Removed from v.348  
changed lines
  Added in v.353

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