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/compiler/PervEnv/UnixNoPosix/os-filesys.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/PervEnv/UnixNoPosix/os-filesys.sml

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

sml/branches/SMLNJ/src/compiler/PervEnv/UnixNoPosix/os-filesys.sml revision 93, Tue May 12 21:56:22 1998 UTC sml/trunk/src/compiler/PervEnv/UnixNoPosix/os-filesys.sml revision 168, Sat Nov 7 20:11:41 1998 UTC
# Line 106  Line 106 
106    
107      fun realPath p = if (P.isAbsolute p)      fun realPath p = if (P.isAbsolute p)
108            then fullPath p            then fullPath p
109            else P.mkRelative (fullPath p, fullPath(getDir()))            else P.mkRelative {path=fullPath p, relativeTo=fullPath(getDir())}
110    
111      local      local
112        val modTime' : string -> int                      = osFunc "modTime"        val modTime' : string -> int                      = osFunc "modTime"

Legend:
Removed from v.93  
changed lines
  Added in v.168

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