diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-02-25 23:45:49 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-02-25 23:45:49 +0100 |
commit | b99692e7b9c66d0ae692fa4212471277a24251a2 (patch) | |
tree | a91dd7e3faf1ad55926d2afdc6ac6c1d69c0468c /guile_interface.scm.c | |
parent | Add scm field to strbuf. (diff) | |
download | calp-b99692e7b9c66d0ae692fa4212471277a24251a2.tar.gz calp-b99692e7b9c66d0ae692fa4212471277a24251a2.tar.xz |
Add GC guards.
Diffstat (limited to '')
-rw-r--r-- | guile_interface.scm.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/guile_interface.scm.c b/guile_interface.scm.c index 6b9de8dc..120806d8 100644 --- a/guile_interface.scm.c +++ b/guile_interface.scm.c @@ -68,7 +68,9 @@ SCM_DEFINE (vcomponent_set_attr_x, "vcomponent-set-attribute!", 3, 0, 0, // TODO if list is a value store it as is, else wrap it in a list // of length one. + scm_gc_unprotect_object(c->val.cur->value->key.scm); c->val.cur->value->key.scm = new_value; + scm_gc_protect_object(c->val.cur->value->key.scm); return SCM_UNSPECIFIED; } |