src/Pure/Isar/isar_syn.ML
changeset 7140 2c02c8e212fa
parent 7124 78c01842d3b5
child 7172 9ecd66cf546d
--- a/src/Pure/Isar/isar_syn.ML	Fri Jul 30 15:57:50 1999 +0200
+++ b/src/Pure/Isar/isar_syn.ML	Fri Jul 30 15:59:00 1999 +0200
@@ -233,7 +233,7 @@
 
 val oracleP =
   OuterSyntax.command "oracle" "install oracle" K.thy_decl
-    (P.name -- P.text -- P.marg_comment >> (Toplevel.theory o IsarThy.add_oracle));
+    ((P.name --| P.$$$ "=") -- P.text -- P.marg_comment >> (Toplevel.theory o IsarThy.add_oracle));