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

Diff of /sml/trunk/src/cm/parse/parse.sml

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

revision 587, Thu Mar 30 09:01:52 2000 UTC revision 588, Fri Mar 31 09:00:02 2000 UTC
# Line 22  Line 22 
22    
23  functor ParseFn (val pending : unit -> DependencyGraph.impexp SymbolMap.map  functor ParseFn (val pending : unit -> DependencyGraph.impexp SymbolMap.map
24                   val evictStale : unit -> unit                   val evictStale : unit -> unit
25                     structure StabModmap : STAB_MODMAP
26                   structure Stabilize: STABILIZE) :> PARSE = struct                   structure Stabilize: STABILIZE) :> PARSE = struct
27    
28      structure VerifyStable = VerStabFn (structure Stabilize = Stabilize)      structure VerifyStable = VerStabFn (structure Stabilize = Stabilize)
# Line 89  Line 90 
90      end      end
91    
92      fun dismissLib l =      fun dismissLib l =
93          (sgc := #1 (SrcPathMap.remove (!sgc, l)))          (StabModmap.reset ();
94             sgc := #1 (SrcPathMap.remove (!sgc, l)))
95          handle LibBase.NotFound => ()          handle LibBase.NotFound => ()
96    
97      fun parse args = let      fun parse args = let

Legend:
Removed from v.587  
changed lines
  Added in v.588

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