diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-02-23 22:47:24 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-02-23 22:47:24 +0100 |
| commit | d176e70202a5ef3c6af8fcef0fdcc5733d641f38 (patch) | |
| tree | ba175ecb2d41865f87a6678d3e9a01ed706f82a3 /guile_type_helpers.c__ | |
| parent | Switch back to C compiler. (diff) | |
| download | calp-d176e70202a5ef3c6af8fcef0fdcc5733d641f38.tar.gz calp-d176e70202a5ef3c6af8fcef0fdcc5733d641f38.tar.xz | |
Reenable guile stuff.
Diffstat (limited to 'guile_type_helpers.c__')
| -rw-r--r-- | guile_type_helpers.c__ | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/guile_type_helpers.c__ b/guile_type_helpers.c__ deleted file mode 100644 index 3f76c2d4..00000000 --- a/guile_type_helpers.c__ +++ /dev/null @@ -1,18 +0,0 @@ -#include "guile_type_helpers.h" - -#include "macro.h" - -SCM scm_from_strbuf(strbuf* s) - { return scm_from_utf8_stringn (s->mem, s->len - 1); } - -SCM scm_from_vector(VECT(vcomponent)* vect, SCM element_type) { - SCM l = SCM_EOL; - for (size_t i = 0; i < vect->length; i++) { - l = scm_cons( - scm_make_foreign_object_1 (element_type, GET(VECT(vcomponent))(vect, i)), - l); - } - return scm_reverse(l); -} - - |