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/depend/build.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/depend/build.sml

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

revision 353, Thu Jun 24 09:43:28 1999 UTC revision 354, Fri Jun 25 08:36:12 1999 UTC
# Line 13  Line 13 
13            gimports: impexp SymbolMap.map,            gimports: impexp SymbolMap.map,
14            smlfiles: SmlInfo.info list,            smlfiles: SmlInfo.info list,
15            localdefs: SmlInfo.info SymbolMap.map,            localdefs: SmlInfo.info SymbolMap.map,
16            subgroups: (AbsPath.t * GroupGraph.group) list,            subgroups: (SrcPath.t * GroupGraph.group) list,
17            reqpriv: GroupGraph.privileges }            reqpriv: GroupGraph.privileges }
18          * SymbolSet.set option          (* filter *)          * SymbolSet.set option          (* filter *)
19          * (string -> unit)              (* error *)          * (string -> unit)              (* error *)
# Line 74  Line 74 
74                          fun recur (_, []) = () (* shouldn't happen *)                          fun recur (_, []) = () (* shouldn't happen *)
75                            | recur (n'', (s, i') :: r) = let                            | recur (n'', (s, i') :: r) = let
76                                  val f' = SmlInfo.sourcepath i'                                  val f' = SmlInfo.sourcepath i'
77                                  val n' = AbsPath.specOf f'                                  val n' = SrcPath.specOf f'
78                                  val _ =                                  val _ =
79                                      if SmlInfo.eq (i, i') then ()                                      if SmlInfo.eq (i, i') then ()
80                                      else recur (n', r)                                      else recur (n', r)
# Line 87  Line 87 
87                              end                              end
88                      in                      in
89                          PrettyPrint.add_newline pps;                          PrettyPrint.add_newline pps;
90                          recur (AbsPath.specOf f, history)                          recur (SrcPath.specOf f, history)
91                      end                      end
92                  in                  in
93                      SmlInfo.error gp i EM.COMPLAIN                      SmlInfo.error gp i EM.COMPLAIN

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

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