equal
deleted
inserted
replaced
134 (* command syntax *) |
134 (* command syntax *) |
135 |
135 |
136 local |
136 local |
137 |
137 |
138 val criterion = |
138 val criterion = |
139 Parse.reserved "name" |-- Parse.!!! (Parse.$$$ ":" |-- Parse.xname) >> Name || |
139 Parse.reserved "name" |-- Parse.!!! (Parse.$$$ ":" |-- Parse.name) >> Name || |
140 Parse.reserved "strict" |-- Parse.!!! (Parse.$$$ ":" |-- Parse.typ) >> Strict || |
140 Parse.reserved "strict" |-- Parse.!!! (Parse.$$$ ":" |-- Parse.typ) >> Strict || |
141 Parse.typ >> Loose; |
141 Parse.typ >> Loose; |
142 |
142 |
143 val query_keywords = Keyword.add_keywords [((":", @{here}), NONE)] Keyword.empty_keywords; |
143 val query_keywords = Keyword.add_keywords [((":", @{here}), NONE)] Keyword.empty_keywords; |
144 |
144 |