From 8073f9abf5d76e4051132b4d1b514b305585efd4 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Fri, 1 Nov 2013 16:38:16 +0000
Subject: [PATCH] make gu_exn_is_raised non inlined. this is useful to make it
 callable from Haskell

---
 src/runtime/c/gu/exn.c | 5 +++++
 src/runtime/c/gu/exn.h | 6 ++----
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/runtime/c/gu/exn.c b/src/runtime/c/gu/exn.c
index cdcf9c9f4..003a4357f 100644
--- a/src/runtime/c/gu/exn.c
+++ b/src/runtime/c/gu/exn.c
@@ -15,6 +15,11 @@ gu_new_exn(GuExn* parent, GuKind* catch, GuPool* pool)
 	return exn;
 }
 
+bool
+gu_exn_is_raised(GuExn* err) {
+	return err && (err->state == GU_EXN_RAISED);
+}
+
 void
 gu_exn_block(GuExn* err)
 {
diff --git a/src/runtime/c/gu/exn.h b/src/runtime/c/gu/exn.h
index c043c4b8a..3fefae738 100644
--- a/src/runtime/c/gu/exn.h
+++ b/src/runtime/c/gu/exn.h
@@ -75,10 +75,8 @@ gu_new_exn(GuExn* parent, GuKind* catch_kind, GuPool* pool);
 
 
 
-static inline bool
-gu_exn_is_raised(GuExn* err) {
-	return err && (err->state == GU_EXN_RAISED);
-}
+bool
+gu_exn_is_raised(GuExn* err);
 
 static inline void
 gu_exn_clear(GuExn* err) {