From: Luis R. Rodriguez <mcgrof@do-not-panic.com>
Date: Tue, 9 Sep 2014 15:10:42 -0700
X-Upstream: should appear in 1.0.0~rc22

The functions do take five arguments, but these two call sites erroneously
just passed four.

--- a/ocaml/no_prepare_ocamlcocci.ml
+++ b/ocaml/no_prepare_ocamlcocci.ml
@@ -9,9 +9,9 @@
 	function
 	    Ast_cocci.ScriptRule (name,"ocaml",deps,mv,script_vars,code) ->
 	      code :: prev
-	  | Ast_cocci.InitialScriptRule (name,"ocaml",deps,code) ->
+	  | Ast_cocci.InitialScriptRule (name,"ocaml",deps,mvs,code) ->
 	      code :: prev
-	  | Ast_cocci.FinalScriptRule (name,"ocaml",deps,code) ->
+	  | Ast_cocci.FinalScriptRule (name,"ocaml",deps,mvs,code) ->
 	      code :: prev
 	  | _ -> prev)
       [] code in