[flightplan] allow "for" instructions in procedures

2026-05-27 17:06:31 +08:00 · 2014-09-05 10:58:18 +02:00
parent 3561371f1d
commit 57e8b2e81b
1 changed files with 3 additions and 0 deletions
@@ -111,6 +111,9 @@ let transform_stage = fun prefix reroutes env xml ->
            | "while" ->
              let attribs = transform_values [] env attribs in
              Xml.Element (tag, attribs, List.map tr children)
+            | "for" ->
+              let attribs = transform_values [] env attribs in
+              Xml.Element (tag, attribs, List.map tr children)
            | "heading" ->
              assert (children=[]);
              let attribs = transform_values ["vmode"] env attribs in