author | haftmann |
Thu, 24 May 2007 08:37:41 +0200 | |
changeset 23088 | a3f11e0ae90f |
parent 23087 | ad7244663431 |
child 23089 | 9669110656b9 |
--- a/src/Pure/Tools/codegen_func.ML Thu May 24 08:37:39 2007 +0200 +++ b/src/Pure/Tools/codegen_func.ML Thu May 24 08:37:41 2007 +0200 @@ -32,7 +32,7 @@ fun bad_thm msg = raise BAD_THM msg; fun error_thm f thm = f thm handle BAD_THM msg => error msg; fun warning_thm f thm = SOME (f thm) handle BAD_THM msg - => (warning msg; NONE); + => (warning ("code generator: " ^ msg); NONE); (* making rewrite theorems *)