diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-01 23:03:11 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-01 23:03:11 +0200 |
| commit | f0e2fe43a5e5e22342a13139815556ae3b373d6c (patch) | |
| tree | 19acf9638371241e76c70451b33cb717a1247ae8 /src/guile_type_helpers.c | |
| parent | Add missing '$' sign in main. (diff) | |
| download | calp-f0e2fe43a5e5e22342a13139815556ae3b373d6c.tar.gz calp-f0e2fe43a5e5e22342a13139815556ae3b373d6c.tar.xz | |
Start moving to scheme structs.
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) { |