# HG changeset patch
# User paulson
# Date 837091137 -7200
# Node ID c6b6ccfd390c7a3b56fccf9bc6dc45930e063be8
# Parent  bec272e3e888cdcaa95b52b4f7779e740ff2f6be
Oracles can now be strings instead of identifiers

diff -r bec272e3e888 -r c6b6ccfd390c src/Pure/Thy/thy_parse.ML
--- a/src/Pure/Thy/thy_parse.ML	Thu Jul 11 15:14:41 1996 +0200
+++ b/src/Pure/Thy/thy_parse.ML	Thu Jul 11 15:18:57 1996 +0200
@@ -523,7 +523,7 @@
   "{", "}", "(", ")", "[", "]", "::", "==", "=>", "<="];
 
 val pure_sections =
- [section "oracle" "|> set_oracle" ident,
+ [section "oracle" "|> set_oracle" (name >> strip_quotes),
   section "classes" "|> add_classes" class_decls,
   section "default" "|> add_defsort" sort,
   section "types" "" type_decls,