| 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));