From 4c58bc268ebce16182326929babee7d88182cb6f Mon Sep 17 00:00:00 2001
From: Art Yerkes <ayerkes@speakeasy.net>
Date: Sun, 23 Nov 2003 08:20:12 +0000
Subject: [PATCH] Added SWIG_contract_assert.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5368 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Lib/ocaml/ocamldec.swg | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/SWIG/Lib/ocaml/ocamldec.swg b/SWIG/Lib/ocaml/ocamldec.swg
index 147ed4d68..87a5d5840 100644
--- a/SWIG/Lib/ocaml/ocamldec.swg
+++ b/SWIG/Lib/ocaml/ocamldec.swg
@@ -89,6 +89,8 @@ CAMLextern int64 Int64_val(caml_value_t v);
 #	define SWIGSTATIC static
 #endif
 
+#define SWIG_contract_assert(expr, msg) if(!(expr)) {failwith(msg);} else
+
     SWIGSTATIC int
     SWIG_GetPtr(void *source, void **result, swig_type_info *type, swig_type_info *result_type);