diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-11-03 14:46:28 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-11-03 14:46:28 +0100 |
commit | 0f65e75ec0f56d3067a15e3671d9250fd2c1637a (patch) | |
tree | 40ddc24f08b42c767e02b6482133e9f7efe4b524 /src/guile_type_helpers.c | |
parent | Remove 'none' output. (diff) | |
parent | Add descirption to strbuf. (diff) | |
download | calp-0f65e75ec0f56d3067a15e3671d9250fd2c1637a.tar.gz calp-0f65e75ec0f56d3067a15e3671d9250fd2c1637a.tar.xz |
Merge branch 'restruct'
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)); -} |