--- a/src/HOL/Tools/Function/partial_function.ML Thu Mar 15 19:48:19 2012 +0100
+++ b/src/HOL/Tools/Function/partial_function.ML Thu Mar 15 20:07:00 2012 +0100
@@ -279,7 +279,7 @@
val add_partial_function = gen_add_partial_function Specification.check_spec;
val add_partial_function_cmd = gen_add_partial_function Specification.read_spec;
-val mode = Parse.$$$ "(" |-- Parse.xname --| Parse.$$$ ")";
+val mode = @{keyword "("} |-- Parse.xname --| @{keyword ")"};
val _ = Outer_Syntax.local_theory
"partial_function" "define partial function" Keyword.thy_decl