diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-06 13:41:00 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-06 13:41:00 +0200 |
commit | ab964d17145114eda93cda35f69a4b1e1779e242 (patch) | |
tree | 2288777a11a1d44539f3790a3aa1e60051452667 /src/guile_type_helpers.c | |
parent | Minor cleanup in scheme code. (diff) | |
download | calp-ab964d17145114eda93cda35f69a4b1e1779e242.tar.gz calp-ab964d17145114eda93cda35f69a4b1e1779e242.tar.xz |
Cleanup in C code.
Diffstat (limited to '')
-rw-r--r-- | src/guile_type_helpers.c | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/src/guile_type_helpers.c b/src/guile_type_helpers.c index 072ddff9..2864df0d 100644 --- a/src/guile_type_helpers.c +++ b/src/guile_type_helpers.c @@ -3,13 +3,9 @@ #include "macro.h" SCM scm_from_strbuf(strbuf* s) { - // if (s->scm == NULL) { - SCM ret = scm_from_utf8_stringn (s->mem, s->len); - scm_gc_protect_object(ret); - // } - - // return s->scm; - return ret; + SCM ret = scm_from_utf8_stringn (s->mem, s->len); + scm_gc_protect_object(ret); + return ret; } SCM scm_from_strbuf_symbol(strbuf* s) { |