discontinued obsolete Thy_Syntax.report_span -- information can be reproduced in Isabelle/Scala;
authorwenzelm
Sun, 21 Aug 2011 13:42:55 +0200
changeset 44352 176e0fb6906b
parent 44351 b7f9e764532a
child 44353 02f286491568
discontinued obsolete Thy_Syntax.report_span -- information can be reproduced in Isabelle/Scala;
src/Pure/Thy/thy_load.ML
src/Pure/Thy/thy_syntax.ML
--- a/src/Pure/Thy/thy_load.ML	Sun Aug 21 13:36:23 2011 +0200
+++ b/src/Pure/Thy/thy_load.ML	Sun Aug 21 13:42:55 2011 +0200
@@ -173,7 +173,6 @@
 
     val toks = Source.exhausted (Thy_Syntax.token_source lexs pos (Source.of_string text));
     val spans = Source.exhaust (Thy_Syntax.span_source toks);
-    val _ = List.app Thy_Syntax.report_span spans;  (* FIXME ?? *)
     val elements =
       Source.exhaust (Thy_Syntax.element_source (Source.of_list spans))
       |> Par_List.map_name "Outer_Syntax.prepare_element"
--- a/src/Pure/Thy/thy_syntax.ML	Sun Aug 21 13:36:23 2011 +0200
+++ b/src/Pure/Thy/thy_syntax.ML	Sun Aug 21 13:42:55 2011 +0200
@@ -20,7 +20,6 @@
   val span_source: (Token.T, 'a) Source.source -> (span, (Token.T, 'a) Source.source) Source.source
   val parse_spans: Scan.lexicon * Scan.lexicon -> Position.T -> string -> span list
   val present_span: span -> Output.output
-  val report_span: span -> unit
   type element = {head: span, proof: span list, proper_proof: bool}
   val element_source: (span, 'a) Source.source ->
     (element, (span, 'a) Source.source) Source.source
@@ -153,9 +152,6 @@
 fun present_span span =
   Markup.enclose (kind_markup (span_kind span)) (implode (map present_token (span_content span)));
 
-fun report_span span =
-  Position.report (Position.set_range (span_range span)) (kind_markup (span_kind span));
-
 end;