# HG changeset patch
# User wenzelm
# Date 877706900 -7200
# Node ID b6a3c2665c450d3eed302626926aafbf64ac5c18
# Parent  0614fdf0db2065cc615c2de28213ad74a0e5ed11
record: tuned output;

diff -r 0614fdf0db20 -r b6a3c2665c45 src/HOL/thy_syntax.ML
--- a/src/HOL/thy_syntax.ML	Fri Oct 24 17:25:33 1997 +0200
+++ b/src/HOL/thy_syntax.ML	Fri Oct 24 17:28:20 1997 +0200
@@ -41,7 +41,7 @@
 val record_decl =
   name --$$ "=" -- optional (name --$$ "+" >> (parens o cat "Some")) "None" --
   repeat1 ((name --$$ "::" -- typ) >> mk_pair)
-  >> (fn ((x, y), zs) => space_implode " " [x, y, mk_list zs]);
+  >> (fn ((x, y), zs) => cat_lines [x, y, mk_big_list zs]);
 
 
 (** (co)inductive **)