# HG changeset patch # User wenzelm # Date 921185569 -3600 # Node ID d015ccae03da3badd9aaecb8b2d0b8643baf419d # Parent 74763258b78b684070e19b406e7d67650993e475 tuned space; diff -r 74763258b78b -r d015ccae03da src/Pure/Thy/thy_parse.ML --- a/src/Pure/Thy/thy_parse.ML Thu Mar 11 21:52:32 1999 +0100 +++ b/src/Pure/Thy/thy_parse.ML Thu Mar 11 21:52:49 1999 +0100 @@ -464,7 +464,7 @@ (* header *) fun mk_header (thy_name, parents) = - (thy_name, "IsarThy.begin_theory " ^ cat (quote thy_name) (mk_list parents) ^ "[]"); + (thy_name, "IsarThy.begin_theory " ^ cat (quote thy_name) (mk_list parents) ^ " []"); val header = ident --$$ "=" -- enum1 "+" name >> mk_header;