oracle: '=';
authorwenzelm
Fri, 30 Jul 1999 15:59:00 +0200
changeset 7140 2c02c8e212fa
parent 7139 1af4c1f48368
child 7141 a67dde8820c0
oracle: '=';
src/Pure/Isar/isar_syn.ML
--- 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));