author | haftmann |
Thu, 14 Jul 2005 10:32:01 +0200 | |
changeset 16824 | c889f499911c |
parent 16823 | 13f3768a6f14 |
child 16825 | 0a28f033de03 |
--- a/src/Pure/proof_general.ML Thu Jul 14 01:04:30 2005 +0200 +++ b/src/Pure/proof_general.ML Thu Jul 14 10:32:01 2005 +0200 @@ -1362,7 +1362,7 @@ val tty_src = Source.set_prompt "" (Source.source Symbol.stopper xmlP NONE Source.tty) - val pgip_toplevel = loop true + fun pgip_toplevel x = loop true x end