diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-01 23:39:00 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-01 23:39:00 +0200 |
commit | 7539f8c8804849294e100c5442e0397f4f4d2c40 (patch) | |
tree | 129fa0bb0f18604bd378724794c855e8e4d230dc /src/strbuf.c | |
parent | Start moving to scheme structs. (diff) | |
download | calp-7539f8c8804849294e100c5442e0397f4f4d2c40.tar.gz calp-7539f8c8804849294e100c5442e0397f4f4d2c40.tar.xz |
Disabled bunch of old stuff, new stuff kinda builds.
Diffstat (limited to '')
-rw-r--r-- | src/strbuf.c | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/src/strbuf.c b/src/strbuf.c index 66fe2989..1e1365d5 100644 --- a/src/strbuf.c +++ b/src/strbuf.c @@ -10,7 +10,6 @@ INIT_F(strbuf) { self->mem = (char*) calloc(sizeof(*self->mem), self->alloc); self->ptr = 0; self->len = 0; - self->scm = NULL; return 0; } @@ -69,18 +68,6 @@ int DEEP_COPY(strbuf)(strbuf* dest, strbuf* src) { retval = 1; } - if (src->scm != NULL) { - /* - * Upon Vcomponent binding into scheme I place all - * strings inside cons cells. This leads to a deep - * copy being required. copy-tree however returns - * the same object for atoms and scheme strings. - */ - dest->scm = scm_copy_tree(src->scm); - /* NOTE This is a bit of a leaky abstraction. */ - scm_gc_protect_object(dest->scm); - } - dest->len = src->len; memcpy(dest->mem, src->mem, src->len); return retval; |