Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
recover: not skip over "`";
authorwenzelm
Sat, 15 Dec 2007 14:52:55 +0100
changeset 25644 d30391cdd9d9
parent 25643 2fdb26d45184
child 25645 b2ed983a5e80
recover: not skip over "`";
src/Pure/General/symbol.ML file | annotate | diff | comparison | revisions 
--- 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
isabelle