From b99692e7b9c66d0ae692fa4212471277a24251a2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Mon, 25 Feb 2019 23:45:49 +0100
Subject: Add GC guards.

---
 guile_type_helpers.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'guile_type_helpers.c')

diff --git a/guile_type_helpers.c b/guile_type_helpers.c
index 485827a0..74223bae 100644
--- a/guile_type_helpers.c
+++ b/guile_type_helpers.c
@@ -5,6 +5,7 @@
 SCM scm_from_strbuf(strbuf* s) {
 	if (s->scm == NULL) {
 		s->scm = scm_from_utf8_stringn (s->mem, s->len - 1);
+		scm_gc_protect_object(s->scm);
 	}
 
 	return s->scm;
-- 
cgit v1.2.3