diff options
Diffstat (limited to 'src/guile_type_helpers.c')
-rw-r--r-- | src/guile_type_helpers.c | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/src/guile_type_helpers.c b/src/guile_type_helpers.c deleted file mode 100644 index 0353a88a..00000000 --- a/src/guile_type_helpers.c +++ /dev/null @@ -1,17 +0,0 @@ -#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; -} - -SCM scm_from_strbuf_symbol(strbuf* s) { - return scm_string_to_symbol(scm_from_strbuf(s)); -} |