Diff of /trunk/src/compiler/fields/image-info.sml

Parent Directory | Revision Log | Patch

	revision 237, Thu Aug 5 23:17:27 2010 UTC	revision 238, Thu Aug 5 23:17:46 2010 UTC
#	Line 44	Line 44
44	fun getInfo fileName = let	fun getInfo fileName = let
45	val {version, header} = RunDNorm.run fileName	val {version, header} = RunDNorm.run fileName
46	in	in
47		Log.msg (concat[fileName, " file header:\n"]);
48		List.app (fn (tag, value) => Log.msg(concat["  ", tag, ": ", value, "\n"])) header;
49	(* FIXME*)raise Fail "getInfo"	(* FIXME*)raise Fail "getInfo"
50	end	end
51

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.237   changed lines   Added in v.238

---

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