author | clasohm |
Fri, 03 Mar 1995 12:34:57 +0100 | |
changeset 926 | 9d1348498c36 |
parent 925 | 15539deb6863 |
child 927 | 305e7cfda869 |
src/Pure/sign.ML | file | annotate | diff | comparison | revisions |
--- a/src/Pure/sign.ML Fri Mar 03 12:04:45 1995 +0100 +++ b/src/Pure/sign.ML Fri Mar 03 12:34:57 1995 +0100 @@ -264,7 +264,7 @@ "\nInvolving these terms:\n" ^ cat_lines (map show_term ts); fun exn_type_msg (msg, Ts, ts) = - msg ^ "\nType checking error: " ^ msg ^ "\n" ^ + "\nType checking error: " ^ msg ^ "\n" ^ cat_lines (map show_typ Ts) ^ term_err ts ^ "\n"; val T' = certify_typ sg T