changeset 28345 | 4562584d9d66 |
parent 27805 | 2e533bcd1343 |
child 28431 | f12c1c68ec8e |
--- a/src/Pure/Isar/outer_keyword.ML Wed Sep 24 19:33:14 2008 +0200 +++ b/src/Pure/Isar/outer_keyword.ML Wed Sep 24 19:39:25 2008 +0200 @@ -148,7 +148,7 @@ let val (keywords, commands) = CRITICAL (fn () => (dest_keywords (), sort_wrt #1 (Symtab.dest (get_commands ())))) in map report_keyword keywords @ map report_command commands end - |> Pretty.chunks |> Pretty.string_of |> Output.status; + |> List.app (Output.status o Pretty.string_of); (* augment tables *)