Diff of /sml/trunk/cm/compile/link.sml

Parent Directory | Revision Log | Patch

	revision 2933, Thu Jan 31 19:20:20 2008 UTC	revision 2934, Fri Feb 1 21:02:59 2008 UTC
#	Line 117	Line 117
117	fun ppb pps =	fun ppb pps =
118	(PP.newline pps;	(PP.newline pps;
119	PP.string pps (General.exnMessage exn);	PP.string pps (General.exnMessage exn);
120		app (fn s => PP.string pps (s ^ "\n"))
121		(SMLofNJ.exnHistory exn);
122	PP.newline pps)	PP.newline pps)
123	in	in
124	error (concat [msg, " ", descr]) ppb;	error (concat [msg, " ", descr]) ppb;

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.2933   changed lines   Added in v.2934

---

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