src/Pure/proof_general.ML
changeset 20738 a965cad7d455
parent 20664 ffbc5a57191a
child 20951 868120282837
     1.1 --- a/src/Pure/proof_general.ML	Wed Sep 27 21:13:13 2006 +0200
     1.2 +++ b/src/Pure/proof_general.ML	Wed Sep 27 21:32:15 2006 +0200
     1.3 @@ -1357,10 +1357,7 @@
     1.4  
     1.5    val xmlP = XML.scan_comment_whspc |-- XML.parse_elem >> single
     1.6  
     1.7 -  fun pgip_src istrm = Source.source Symbol.stopper xmlP NONE 
     1.8 -			      (Source.of_instream_slurp istrm);
     1.9 -
    1.10 -  val tty_src = pgip_src TextIO.stdIn;
    1.11 +  val tty_src = Source.set_prompt "" (Source.source Symbol.stopper xmlP NONE Source.tty)
    1.12  
    1.13    fun pgip_toplevel x = loop true x
    1.14  end