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

Diff of /sml/trunk/src/cm/util/tstamp.sml

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

revision 691, Tue Jul 25 07:20:24 2000 UTC revision 692, Thu Jul 27 08:34:53 2000 UTC
# Line 25  Line 25 
25      fun fmodTime f = TSTAMP (OS.FileSys.modTime f) handle _ => NOTSTAMP      fun fmodTime f = TSTAMP (OS.FileSys.modTime f) handle _ => NOTSTAMP
26      fun setTime (f, NOTSTAMP) = ()      fun setTime (f, NOTSTAMP) = ()
27        | setTime (f, TSTAMP t) = OS.FileSys.setTime (f, SOME t)        | setTime (f, TSTAMP t) = OS.FileSys.setTime (f, SOME t)
28    
29        fun max (TSTAMP t, TSTAMP t') = TSTAMP (if Time.< (t, t') then t' else t)
30          | max _ = NOTSTAMP
31  end  end

Legend:
Removed from v.691  
changed lines
  Added in v.692

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