src/Pure/Tools/find_theorems.ML
changeset 58905 55160ef37e8f
parent 58903 38c72f5f6c2e
child 58920 2f8168dc0eac
     1.1 --- a/src/Pure/Tools/find_theorems.ML	Wed Nov 05 20:49:30 2014 +0100
     1.2 +++ b/src/Pure/Tools/find_theorems.ML	Wed Nov 05 21:10:38 2014 +0100
     1.3 @@ -526,10 +526,12 @@
     1.4  
     1.5  val query = Scan.repeat ((Scan.option Parse.minus >> is_none) -- criterion);
     1.6  
     1.7 +val query_keywords = Keyword.add (":", NONE) Keyword.empty_keywords;
     1.8 +
     1.9  in
    1.10  
    1.11  fun read_query pos str =
    1.12 -  Outer_Syntax.scan (Keyword.get_keywords ()) pos str
    1.13 +  Outer_Syntax.scan query_keywords pos str
    1.14    |> filter Token.is_proper
    1.15    |> Scan.error (Scan.finite Token.stopper (Parse.!!! (query --| Scan.ahead Parse.eof)))
    1.16    |> #1;