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 /smlnj-lib/trunk/Util/path-util.sml
ViewVC logotype

Diff of /smlnj-lib/trunk/Util/path-util.sml

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

revision 3576, Wed Mar 16 14:43:03 2011 UTC revision 3577, Wed Mar 16 15:13:36 2011 UTC
# Line 37  Line 37 
37      val findFile  = existsFile fileExists      val findFile  = existsFile fileExists
38      val findFiles = allFiles fileExists      val findFiles = allFiles fileExists
39    
40        val findExe = existsFile (fn p => OS.FileSys.access(p, [OS.FileSys.A_EXEC]))
41    
42    end;    end;
43    

Legend:
Removed from v.3576  
changed lines
  Added in v.3577

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