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 403, Tue Aug 31 07:44:29 1999 UTC revision 404, Wed Sep 1 07:03:22 1999 UTC
# Line 198  Line 198 
198               * As a side effect, this function registers local and               * As a side effect, this function registers local and
199               * global imports. *)               * global imports. *)
200              fun lookimport s = let              fun lookimport s = let
201                  fun internalError m s =                  fun dontcomplain s = DE.EMPTY
                     EM.impossible ("build/lookimport/" ^ m)  
202                  fun lookfar () =                  fun lookfar () =
203                      case SM.find (imports, s) of                      case SM.find (imports, s) of
204                          SOME (farn, e) => (globalImport farn;                          SOME (farn, e) => (globalImport farn;
205                                             look (internalError "far") e s)                                             look dontcomplain e s)
206                        | NONE =>                        | NONE =>
207                              (* We could complain here about an undefined                              (* We could complain here about an undefined
208                               * name.  However, since CM doesn't have the                               * name.  However, since CM doesn't have the
# Line 219  Line 218 
218                              val (n, e) = getResult (i', (s, i) :: history)                              val (n, e) = getResult (i', (s, i) :: history)
219                          in                          in
220                              localImport n;                              localImport n;
221                              look (internalError "local") e s                              look dontcomplain e s
222                          end                          end
223                    | NONE => lookfar ()                    | NONE => lookfar ()
224              end              end

Legend:
Removed from v.403  
changed lines
  Added in v.404

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