src/Pure/Thy/thy_parse.ML
changeset 1850 c6b6ccfd390c
parent 1810 0eef167ebe1b
child 2203 c2dbdc2ef781
     1.1 --- a/src/Pure/Thy/thy_parse.ML	Thu Jul 11 15:14:41 1996 +0200
     1.2 +++ b/src/Pure/Thy/thy_parse.ML	Thu Jul 11 15:18:57 1996 +0200
     1.3 @@ -523,7 +523,7 @@
     1.4    "{", "}", "(", ")", "[", "]", "::", "==", "=>", "<="];
     1.5  
     1.6  val pure_sections =
     1.7 - [section "oracle" "|> set_oracle" ident,
     1.8 + [section "oracle" "|> set_oracle" (name >> strip_quotes),
     1.9    section "classes" "|> add_classes" class_decls,
    1.10    section "default" "|> add_defsort" sort,
    1.11    section "types" "" type_decls,