src/Pure/Tools/find_consts.ML

 (* command syntax *)
 
 local
 
 val criterion =
-  Parse.reserved "strict" |-- Parse.!!! (Parse.$$$ ":" |-- Parse.xname) >> Strict ||
   Parse.reserved "name" |-- Parse.!!! (Parse.$$$ ":" |-- Parse.xname) >> Name ||
-  Parse.xname >> Loose;
+  Parse.reserved "strict" |-- Parse.!!! (Parse.$$$ ":" |-- Parse.typ) >> Strict ||
+  Parse.typ >> Loose;
 
 val query = Scan.repeat ((Scan.option Parse.minus >> is_none) -- criterion);
 
 val query_keywords = Keyword.add_keywords [((":", @{here}), NONE)] Keyword.empty_keywords;