diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-22 20:11:11 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-22 20:17:52 +0100 |
commit | d46183860c1f3f10095e95023adcb79b1896ab0e (patch) | |
tree | dd331a0efe9777bfe84160139da1e39df3226b71 /src/guile_type_helpers.c | |
parent | Add stuff to test.scm. (diff) | |
download | calp-d46183860c1f3f10095e95023adcb79b1896ab0e.tar.gz calp-d46183860c1f3f10095e95023adcb79b1896ab0e.tar.xz |
Move C and Scheme code into subdirs.
Diffstat (limited to 'src/guile_type_helpers.c')
-rw-r--r-- | src/guile_type_helpers.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/guile_type_helpers.c b/src/guile_type_helpers.c new file mode 100644 index 00000000..e231f2b1 --- /dev/null +++ b/src/guile_type_helpers.c @@ -0,0 +1,13 @@ +#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; +} |