fixed outer syntax
authorhaftmann
Tue, 23 Sep 2008 18:11:45 +0200
changeset 28338 e58ec46d50bc
parent 28337 93964076e7b8
child 28339 6f6fa16543f5
fixed outer syntax
src/Tools/code/code_funcgr.ML
--- a/src/Tools/code/code_funcgr.ML	Tue Sep 23 18:11:44 2008 +0200
+++ b/src/Tools/code/code_funcgr.ML	Tue Sep 23 18:11:45 2008 +0200
@@ -316,13 +316,13 @@
 
 val _ =
   OuterSyntax.improper_command "code_thms" "print system of defining equations for code" OuterKeyword.diag
-    (Scan.repeat P.term
+    (Scan.repeat P.term_group
       >> (fn cs => Toplevel.no_timing o Toplevel.unknown_theory
         o Toplevel.keep ((fn thy => code_thms_cmd thy cs) o Toplevel.theory_of)));
 
 val _ =
   OuterSyntax.improper_command "code_deps" "visualize dependencies of defining equations for code" OuterKeyword.diag
-    (Scan.repeat P.term
+    (Scan.repeat P.term_group
       >> (fn cs => Toplevel.no_timing o Toplevel.unknown_theory
         o Toplevel.keep ((fn thy => code_deps_cmd thy cs) o Toplevel.theory_of)));