aboutsummaryrefslogtreecommitdiff
path: root/src/strbuf.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/strbuf.c')
-rw-r--r--src/strbuf.c13
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;