From a87a1d38d3df77636fcd39600bd54e2b047c0de3 Mon Sep 17 00:00:00 2001
From: Akinori Hattori <hattya@gentoo.org>
Date: Wed, 11 Jul 2018 23:33:20 +0900
Subject: [PATCH] dev-scheme/c-wrapper: fix finalizer of ffi_closure

Package-Manager: Portage-2.3.40, Repoman-2.3.9
---
 ...-wrapper-0.6.1.ebuild => c-wrapper-0.6.1-r1.ebuild} |  5 ++++-
 dev-scheme/c-wrapper/files/c-wrapper-closure.patch     | 10 ++++++++++
 2 files changed, 14 insertions(+), 1 deletion(-)
 rename dev-scheme/c-wrapper/{c-wrapper-0.6.1.ebuild => c-wrapper-0.6.1-r1.ebuild} (89%)
 create mode 100644 dev-scheme/c-wrapper/files/c-wrapper-closure.patch

diff --git a/dev-scheme/c-wrapper/c-wrapper-0.6.1.ebuild b/dev-scheme/c-wrapper/c-wrapper-0.6.1-r1.ebuild
similarity index 89%
rename from dev-scheme/c-wrapper/c-wrapper-0.6.1.ebuild
rename to dev-scheme/c-wrapper/c-wrapper-0.6.1-r1.ebuild
index 864680e0294f..709c8c2eb641 100644
--- a/dev-scheme/c-wrapper/c-wrapper-0.6.1.ebuild
+++ b/dev-scheme/c-wrapper/c-wrapper-0.6.1-r1.ebuild
@@ -18,7 +18,10 @@ RDEPEND="dev-scheme/gauche
 	virtual/libffi"
 DEPEND="${RDEPEND}"
 
-PATCHES=( "${FILESDIR}"/${PN}-gentoo.patch )
+PATCHES=(
+	"${FILESDIR}"/${PN}-closure.patch
+	"${FILESDIR}"/${PN}-gentoo.patch
+)
 HTML_DOCS=( doc/${PN}-ref{e,j}.html )
 
 src_prepare() {
diff --git a/dev-scheme/c-wrapper/files/c-wrapper-closure.patch b/dev-scheme/c-wrapper/files/c-wrapper-closure.patch
new file mode 100644
index 000000000000..24be1d052fd7
--- /dev/null
+++ b/dev-scheme/c-wrapper/files/c-wrapper-closure.patch
@@ -0,0 +1,10 @@
+--- a/src/closure_alloc.c
++++ b/src/closure_alloc.c
+@@ -100,6 +100,7 @@
+             ++(node->n);
+             return;
+         }
++        node = node->next;
+     }
+ 
+     node = malloc(sizeof(FreeNode));
-- 
2.26.2