# HG changeset patch
# User wenzelm
# Date 1398545002 -7200
# Node ID ef5df088e0229f237486c66b887df41d7176d398
# Parent  790f7562cd0ee9ac5fe37ecdfad4d01b603bc8b5
tuned message;

diff -r 790f7562cd0e -r ef5df088e022 src/Pure/Tools/find_consts.ML
--- a/src/Pure/Tools/find_consts.ML	Sat Apr 26 22:35:19 2014 +0200
+++ b/src/Pure/Tools/find_consts.ML	Sat Apr 26 22:43:22 2014 +0200
@@ -120,7 +120,7 @@
       then "nothing found"
       else "found " ^ string_of_int (length matches) ^ " constant(s):") ::
     Pretty.str "" ::
-    map (pretty_const ctxt) matches
+    map (Pretty.item o single o pretty_const ctxt) matches
   end |> Pretty.fbreaks |> curry Pretty.blk 0;
 
 fun find_consts ctxt args = Pretty.writeln (pretty_consts ctxt args);