src/Pure/General/symbol.ML
changeset 25644 d30391cdd9d9
parent 25641 615aecd485ad
child 26524 63953bec4c98
--- a/src/Pure/General/symbol.ML	Sat Dec 15 14:35:50 2007 +0100
+++ b/src/Pure/General/symbol.ML	Sat Dec 15 14:52:55 2007 +0100
@@ -426,7 +426,7 @@
   Scan.one not_eof;
 
 val recover =
-  Scan.many (fn s => not (is_blank s) andalso s <> "\"" andalso not_eof s)
+  Scan.many (fn s => not (is_blank s) andalso s <> "\"" andalso s <> "`" andalso not_eof s)
     >> (fn ss => malformed :: ss @ [end_malformed]);
 
 in