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 294, Tue May 25 09:06:06 1999 UTC revision 295, Wed May 26 09:20:25 1999 UTC
# Line 87  Line 87 
87                          recur (AbsPath.spec f, history)                          recur (AbsPath.spec f, history)
88                      end                      end
89                  in                  in
90                      SmlInfo.error i "cyclic ML dependencies" pphist;                      SmlInfo.error i EM.COMPLAIN
91                             "cyclic ML dependencies" pphist;
92                      release (i, (DG.SNODE { smlinfo = i,                      release (i, (DG.SNODE { smlinfo = i,
93                                              localimports = [],                                              localimports = [],
94                                              globalimports = [] },                                              globalimports = [] },
# Line 139  Line 140 
140                  fun lookfar () =                  fun lookfar () =
141                      case SM.find (imports, s) of                      case SM.find (imports, s) of
142                          SOME (farn, e) => (globalImport farn; e)                          SOME (farn, e) => (globalImport farn; e)
143                        | NONE => (SmlInfo.error i                        | NONE => (SmlInfo.error i EM.COMPLAIN
144                                    (concat (AbsPath.spec f ::                                    (concat (AbsPath.spec f ::
145                                             ": reference to unknown " ::                                             ": reference to unknown " ::
146                                             symDesc (s, [])))                                             symDesc (s, [])))
# Line 167  Line 168 
168                        | dotPath [s] = [S.name s]                        | dotPath [s] = [S.name s]
169                        | dotPath (h :: t) = S.name h :: "." :: dotPath t                        | dotPath (h :: t) = S.name h :: "." :: dotPath t
170                      fun complain s =                      fun complain s =
171                          (SmlInfo.error i                          (SmlInfo.error i EM.COMPLAIN
172                            (concat                            (concat
173                             (AbsPath.spec f ::                             (AbsPath.spec f ::
174                              ": undefined " ::                              ": undefined " ::

Legend:
Removed from v.294  
changed lines
  Added in v.295

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