author | wenzelm |
Fri, 30 Jul 1999 15:59:00 +0200 | |
changeset 7140 | 2c02c8e212fa |
parent 7139 | 1af4c1f48368 |
child 7141 | a67dde8820c0 |
--- 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));