From 33fa5b5d0c512c72c1d50b9420a36431cd10eb5d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 18 Feb 2019 22:39:56 +0100 Subject: Made to compile as C++. --- guile_type_helpers.c | 18 ------------------ 1 file changed, 18 deletions(-) delete mode 100644 guile_type_helpers.c (limited to 'guile_type_helpers.c') diff --git a/guile_type_helpers.c b/guile_type_helpers.c deleted file mode 100644 index 3f76c2d4..00000000 --- a/guile_type_helpers.c +++ /dev/null @@ -1,18 +0,0 @@ -#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