From d46183860c1f3f10095e95023adcb79b1896ab0e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 22 Mar 2019 20:11:11 +0100 Subject: Move C and Scheme code into subdirs. --- src/guile_type_helpers.c | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 src/guile_type_helpers.c (limited to 'src/guile_type_helpers.c') 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; +} -- cgit v1.2.3