From 7539f8c8804849294e100c5442e0397f4f4d2c40 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 1 Oct 2019 23:39:00 +0200 Subject: Disabled bunch of old stuff, new stuff kinda builds. --- src/strbuf.c | 13 ------------- 1 file changed, 13 deletions(-) (limited to 'src/strbuf.c') 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; -- cgit v1.2.3