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 308, Wed Jun 2 01:26:19 1999 UTC revision 309, Wed Jun 2 03:21:57 1999 UTC
# Line 138  Line 138 
138               * As a side effect, this function registers local and               * As a side effect, this function registers local and
139               * global imports. *)               * global imports. *)
140              fun lookimport s = let              fun lookimport s = let
141                    fun internalError s =
142                        EM.impossible "build/lookimport/lookfar"
143                  fun lookfar () =                  fun lookfar () =
144                      case SM.find (imports, s) of                      case SM.find (imports, s) of
145                          SOME (farn, e) => (globalImport farn; e)                          SOME (farn, e) => (globalImport farn;
146                                               look internalError e s)
147                        | NONE =>                        | NONE =>
148                              (* We could complain here about an undefined                              (* We could complain here about an undefined
149                               * name.  However, since CM doesn't have the                               * name.  However, since CM doesn't have the

Legend:
Removed from v.308  
changed lines
  Added in v.309

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