diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-06-22 12:51:04 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-06-22 12:51:04 +0000 |
| commit | 098236cf193fb98d2990c6d52d53a4d4b3f72ba0 (patch) | |
| tree | 8e96f7176a21d4b338ecf38c66bbf4a9465b5294 /parsing/g_xml.ml4 | |
| parent | 0f03185388e6d4d2ac376e2e8120437a6ae471b7 (diff) | |
Added {measure x f} as a valid recursion order.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8969 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/g_xml.ml4')
| -rw-r--r-- | parsing/g_xml.ml4 | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/parsing/g_xml.ml4 b/parsing/g_xml.ml4 index bdedaf176..0bd72db4a 100644 --- a/parsing/g_xml.ml4 +++ b/parsing/g_xml.ml4 @@ -228,6 +228,10 @@ and interp_xml_recursionOrder x = (match l with [c] -> RWfRec (interp_xml_type c) | _ -> user_err_loc (loc, "", str "wrong number of arguments (expected one)")) + | "Measure" -> + (match l with + [c] -> RMeasureRec (interp_xml_type c) + | _ -> user_err_loc (loc, "", str "wrong number of arguments (expected one)")) | _ -> user_err_loc (locs,"",str "invalid recursion order") |