Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /trunk/src/compiler/common/paths_sml.in
ViewVC logotype

Diff of /trunk/src/compiler/common/paths_sml.in

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

revision 1887, Fri May 25 14:50:55 2012 UTC revision 1888, Fri May 25 15:05:17 2012 UTC
# Line 42  Line 42 
42              in              in
43                 String.fields (fn #":" => true | _ => false) path                 String.fields (fn #":" => true | _ => false) path
44              end (* getPath *)              end (* getPath *)
45  (* FIXME: won't need the isAbsolute check in 110.75 *)        fun findExe (paths, name) = (case PathUtil.findExe paths name
       fun findExe (paths, name) = if OS.Path.isAbsolute name  
             then name  
             else (case PathUtil.findExe paths name  
46                 of SOME p => p                 of SOME p => p
47                  | NONE => raise Fail(concat["unable to find ", name, " executable"])                  | NONE => raise Fail(concat["unable to find ", name, " executable"])
48                (* end case *))                (* end case *))

Legend:
Removed from v.1887  
changed lines
  Added in v.1888

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