1 files changed, 13 insertions, 0 deletions
diff --git a/src/guile_type_helpers.c b/src/guile_type_helpers.c
new file mode 100644
index 00000000..e231f2b1
--- /dev/null
+++ b/src/guile_type_helpers.c
@@ -0,0 +1,13 @@
+#include "guile_type_helpers.h"
+#include "guile_interface.h"
+
+#include "macro.h"
+
+SCM scm_from_strbuf(strbuf* s) {
+	if (s->scm == NULL) {
+		s->scm = scm_from_utf8_stringn (s->mem, s->len);
+		scm_gc_protect_object(s->scm);
+	}
+
+	return s->scm;
+}