diff options
Diffstat (limited to 'src/guile_type_helpers.c')
-rw-r--r-- | src/guile_type_helpers.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/guile_type_helpers.c b/src/guile_type_helpers.c index 0353a88a..f03ac671 100644 --- a/src/guile_type_helpers.c +++ b/src/guile_type_helpers.c @@ -4,12 +4,13 @@ #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); - } + // if (s->scm == NULL) { + SCM ret = scm_from_utf8_stringn (s->mem, s->len); + scm_gc_protect_object(ret); + // } - return s->scm; + // return s->scm; + return ret; } SCM scm_from_strbuf_symbol(strbuf* s) { |