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

Diff of /sml/trunk/src/cm/main/cm-boot.sml

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

revision 651, Thu Jun 1 18:34:03 2000 UTC revision 652, Tue Jun 6 02:14:56 2000 UTC
# Line 267  Line 267 
267                    case archos of                    case archos of
268                        NONE => fnpolicy                        NONE => fnpolicy
269                      | SOME ao => FilenamePolicy.colocate_generic ao                      | SOME ao => FilenamePolicy.colocate_generic ao
270                fun sourcesOf ((p, g), (v, a)) =                fun sourcesOf ((p, gth), (v, a)) =
271                    if SrcPathSet.member (v, p) then (v, a)                    if SrcPathSet.member (v, p) then (v, a)
272                    else                    else
273                        let val v = SrcPathSet.add (v, p)                        let val v = SrcPathSet.add (v, p)
274                        in case g of                        in case gth () of
275                               GG.ERRORGROUP => (v, a)                               GG.ERRORGROUP => (v, a)
276                             | GG.GROUP { kind, sources, ... } => let                             | GG.GROUP { kind, sources, ... } => let
277                                   fun add (p, x, a) =                                   fun add (p, x, a) =
# Line 305  Line 305 
305                (case Parse.parse (parse_arg (gr, NONE, p)) of                (case Parse.parse (parse_arg (gr, NONE, p)) of
306                     SOME (g, _) => let                     SOME (g, _) => let
307                         val (_, sm) =                         val (_, sm) =
308                             sourcesOf ((p, g),                             sourcesOf ((p, fn () => g),
309                                        (SrcPathSet.empty,                                        (SrcPathSet.empty,
310                                         StringMap.singleton                                         StringMap.singleton
311                                             (SrcPath.osstring p,                                             (SrcPath.osstring p,
# Line 489  Line 489 
489                                (HostMachDepVC.Interact.installCompManager                                (HostMachDepVC.Interact.installCompManager
490                                      (SOME al_manager');                                      (SOME al_manager');
491                                      standard_preload BtNames.standard_preloads;                                      standard_preload BtNames.standard_preloads;
                                CmHook.init  
                                  { stabilize = stabilize,  
                                    recomp = recomp,  
                                    make = make,  
                                    autoload = autoload };  
492                                 (* unconditionally drop all library pickles *)                                 (* unconditionally drop all library pickles *)
493                                 Parse.dropPickles ();                                 Parse.dropPickles ();
494                                 SOME (autoload_postprocess ()))                                 SOME (autoload_postprocess ()))

Legend:
Removed from v.651  
changed lines
  Added in v.652

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