src/Pure/General/symbol.ML
changeset 8663 38d7ec8ef683
parent 8230 6f8aa407bcf9
child 8806 a202293db3f6
equal deleted inserted replaced
8662:f9679ddbc492 8663:38d7ec8ef683
   273   Scan.one not_eof;
   273   Scan.one not_eof;
   274 
   274 
   275 
   275 
   276 (* source *)
   276 (* source *)
   277 
   277 
   278 val recover = Scan.any1 ((not o is_blank) andf not_eof);
   278 val recover = Scan.any ((not o is_blank) andf not_eof);
   279 
   279 
   280 fun source do_recover src =
   280 fun source do_recover src =
   281   Source.source stopper (Scan.bulk scan) (if do_recover then Some recover else None) src;
   281   Source.source stopper (Scan.bulk scan) (if do_recover then Some recover else None) src;
   282 
   282 
   283 
   283