aboutsummaryrefslogtreecommitdiff
path: root/guile_type_helpers.c
diff options
context:
space:
mode:
Diffstat (limited to 'guile_type_helpers.c')
-rw-r--r--guile_type_helpers.c18
1 files changed, 0 insertions, 18 deletions
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);
-}
-
-