# HG changeset patch
# User wenzelm
# Date 1291472068 -3600
# Node ID 755f8fe7ced9f704c6307e330432e9de7bbef6cd
# Parent  f840361f8e69787efdeb38f9473b14d842c28c9e
eliminated obsolete Token.Malformed -- subsumed by Token.Error;

diff -r f840361f8e69 -r 755f8fe7ced9 src/Pure/Isar/token.ML
--- a/src/Pure/Isar/token.ML	Sat Dec 04 14:59:25 2010 +0100
+++ b/src/Pure/Isar/token.ML	Sat Dec 04 15:14:28 2010 +0100
@@ -9,7 +9,7 @@
   datatype kind =
     Command | Keyword | Ident | LongIdent | SymIdent | Var | TypeIdent | TypeVar |
     Nat | Float | String | AltString | Verbatim | Space | Comment | InternalValue |
-    Malformed | Error of string | Sync | EOF
+    Error of string | Sync | EOF
   datatype value =
     Text of string | Typ of typ | Term of term | Fact of thm list |
     Attribute of morphism -> attribute
@@ -90,7 +90,7 @@
 datatype kind =
   Command | Keyword | Ident | LongIdent | SymIdent | Var | TypeIdent | TypeVar |
   Nat | Float | String | AltString | Verbatim | Space | Comment | InternalValue |
-  Malformed | Error of string | Sync | EOF;
+  Error of string | Sync | EOF;
 
 datatype T = Token of (Symbol_Pos.text * Position.range) * (kind * string) * slot;
 
@@ -111,7 +111,6 @@
   | Space => "white space"
   | Comment => "comment text"
   | InternalValue => "internal value"
-  | Malformed => "malformed symbolic character"
   | Error _ => "bad input"
   | Sync => "sync marker"
   | EOF => "end-of-file";
@@ -331,7 +330,6 @@
     scan_verbatim >> token_range Verbatim ||
     scan_comment >> token_range Comment ||
     scan_space >> token Space ||
-    Scan.one (Symbol.is_malformed o Symbol_Pos.symbol) >> (token Malformed o single) ||
     Scan.one (Symbol.is_sync o Symbol_Pos.symbol) >> (token Sync o single) ||
     (Scan.max token_leq
       (Scan.max token_leq
diff -r f840361f8e69 -r 755f8fe7ced9 src/Pure/Thy/thy_syntax.ML
--- a/src/Pure/Thy/thy_syntax.ML	Sat Dec 04 14:59:25 2010 +0100
+++ b/src/Pure/Thy/thy_syntax.ML	Sat Dec 04 15:14:28 2010 +0100
@@ -60,7 +60,6 @@
   | Token.Space         => Markup.empty
   | Token.Comment       => Markup.comment
   | Token.InternalValue => Markup.empty
-  | Token.Malformed     => Markup.malformed
   | Token.Error _       => Markup.malformed
   | Token.Sync          => Markup.control
   | Token.EOF           => Markup.control;