Coccinelle release 1.0.0-rc4

[bpt/coccinelle.git] / ocaml / coccilib.ml

diff --git a/ocaml/coccilib.ml b/ocaml/coccilib.ml
index 19e2e98..8b09fbf 100644 (file)
--- a/ocaml/coccilib.ml
+++ b/ocaml/coccilib.ml
@@ -31,4 +31,6 @@ let fcts : (string, param_type list -> string ref list -> unit) Hashtbl.t =
 
 let inc_match = ref true
 let include_match x = inc_match := x
+let exited = ref true
+let exit _ = exited := true
 let dir () = !Flag.dir