follow added

This commit is contained in:
Pascal Brisset
2005-11-05 18:25:36 +00:00
parent 09e7c05f36
commit 8c3dca77ed
+1 -1
View File
@@ -233,7 +233,7 @@ let rec compile_stage = fun block x ->
| "for" ->
List.iter (compile_stage block) (Xml.children x);
incr stage (* To count the loop stage *)
| "return_from_excpt" | "goto" | "deroute" | "exit_block"
| "return_from_excpt" | "goto" | "deroute" | "exit_block" | "follow"
| "heading" | "attitude" | "go" | "stay" | "xyz" | "set" | "circle" -> ()
| s -> failwith (sprintf "Unknown stage: %s\n" s)
end