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

Diff of /sml/trunk/src/cm/paths/abspath.sml

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

revision 364, Fri Jul 2 07:33:12 1999 UTC revision 366, Fri Jul 2 14:13:29 1999 UTC
# Line 11  Line 11 
11      type t      type t
12      type ord_key = t      type ord_key = t
13    
     val revalidateCwd : unit -> unit  
14      val newEra : unit -> unit      val newEra : unit -> unit
15        val revalidateCwd : unit -> unit
16    
17      val cwdContext: unit -> context      val cwdContext: unit -> context
18      val sameDirContext: t -> context      val sameDirContext: t -> context
# Line 125  Line 125 
125                  end                  end
126    
127          fun cwdContext () =          fun cwdContext () =
128              THEN_CWD { stamp = cwdStamp (), name = cwdName (), id = cwdId () }              (revalidateCwd ();
129                 THEN_CWD { stamp = cwdStamp (),
130                            name = cwdName (),
131                            id = cwdId () })
132    
133          fun sameDirContext p = DIR_OF p          fun sameDirContext p = DIR_OF p
134    

Legend:
Removed from v.364  
changed lines
  Added in v.366

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