From 33fa5b5d0c512c72c1d50b9420a36431cd10eb5d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 18 Feb 2019 22:39:56 +0100
Subject: Made to compile as C++.

---
 guile_type_helpers.c__ | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 guile_type_helpers.c__

(limited to 'guile_type_helpers.c__')

diff --git a/guile_type_helpers.c__ b/guile_type_helpers.c__
new file mode 100644
index 00000000..3f76c2d4
--- /dev/null
+++ b/guile_type_helpers.c__
@@ -0,0 +1,18 @@
+#include "guile_type_helpers.h"
+
+#include "macro.h"
+
+SCM scm_from_strbuf(strbuf* s)
+	{ return scm_from_utf8_stringn (s->mem, s->len - 1); }
+
+SCM scm_from_vector(VECT(vcomponent)* vect, SCM element_type) {
+	SCM l = SCM_EOL;
+	for (size_t i = 0; i < vect->length; i++) {
+		l = scm_cons(
+				scm_make_foreign_object_1 (element_type, GET(VECT(vcomponent))(vect, i)),
+				l);
+	}
+	return scm_reverse(l);
+}
+
+
-- 
cgit v1.2.3