diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2013-11-01 16:38:16 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2013-11-01 16:38:16 +0000 |
| commit | 8073f9abf5d76e4051132b4d1b514b305585efd4 (patch) | |
| tree | ccc69c8eeb331a45cd082ab809f735cb51a42aad /src/runtime/c/gu/exn.c | |
| parent | d454165f24a27ea64a18b8558a756fdfe373d1ee (diff) | |
make gu_exn_is_raised non inlined. this is useful to make it callable from Haskell
Diffstat (limited to 'src/runtime/c/gu/exn.c')
| -rw-r--r-- | src/runtime/c/gu/exn.c | 5 |
1 files changed, 5 insertions, 0 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) { |