diff options
Diffstat (limited to 'src/guile_type_helpers.c')
-rw-r--r-- | src/guile_type_helpers.c | 13 |
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; +} |