changeset 35360 | df2b2168e43a |
parent 35299 | 4f4d5bf4ea08 |
child 36271 | 2ef9dbddfcb8 |
--- a/src/Tools/Code/code_eval.ML Thu Feb 25 22:05:34 2010 +0100 +++ b/src/Tools/Code/code_eval.ML Thu Feb 25 22:06:43 2010 +0100 @@ -144,7 +144,7 @@ val _ = ML_Context.add_antiq "code" (fn _ => Args.term >> ml_code_antiq); val _ = ML_Context.add_antiq "code_datatype" (fn _ => - (Args.tyname --| Scan.lift (Args.$$$ "=") + (Args.type_name true --| Scan.lift (Args.$$$ "=") -- (Args.term ::: Scan.repeat (Scan.lift (Args.$$$ "|") |-- Args.term))) >> ml_code_datatype_antiq);