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

Parent Directory | Revision Log | 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 *))

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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