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/branches/num64/system/Basis/Implementation/Win32/os-filesys.sml
ViewVC logotype

Diff of /sml/branches/num64/system/Basis/Implementation/Win32/os-filesys.sml

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

revision 5342, Fri Jun 7 16:11:16 2019 UTC revision 5343, Fri Jun 7 16:58:24 2019 UTC
# Line 182  Line 182 
182    
183      fun rename {old: string, new: string} = let      fun rename {old: string, new: string} = let
184            fun rse' s = rse "rename" s            fun rse' s = rse "rename" s
185            val _ = not (exists old) andalso            val _ = if not (exists old)
186                    rse' ("cannot find old='" ^ old ^ "'")                  then rse' (concat["cannot find old='", old, "'"])
187                    else ()
188            val same = (exists new) andalso            val same = (exists new) andalso
189                       (fullPath old = fullPath new)                       (fullPath old = fullPath new)
190            in            in

Legend:
Removed from v.5342  
changed lines
  Added in v.5343

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