diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-08 13:53:37 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-08 13:54:19 +0100 |
commit | aa90c52e43d32d88d4a0fd8d1a42714a1a0adff6 (patch) | |
tree | 8de14e74bd2677404721b6cc56fbe25b91aadde2 /strbuf.c | |
parent | Clean up srfi-19 util. (diff) | |
download | calp-aa90c52e43d32d88d4a0fd8d1a42714a1a0adff6.tar.gz calp-aa90c52e43d32d88d4a0fd8d1a42714a1a0adff6.tar.xz |
Fix error when looking at cloned events.
Diffstat (limited to '')
-rw-r--r-- | strbuf.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -70,7 +70,10 @@ int DEEP_COPY(strbuf)(strbuf* dest, strbuf* src) { } if (src->scm != NULL) { + /* The magic SCM type is copied when reassigned. */ dest->scm = src->scm; + /* NOTE This is a bit of a leaky abstraction. */ + scm_gc_protect_object(dest->scm); } dest->len = src->len; |