diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-02-26 10:56:49 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-02-26 10:56:49 +0100 |
| commit | 985ee1776348b2068fb6470e2a2fd3442c2a0811 (patch) | |
| tree | 53537a365103edf9213a592a7637ee7cee7fd16a /guile_interface.scm.c | |
| parent | Move load-extension to (vcalendar primitive). (diff) | |
| download | calp-985ee1776348b2068fb6470e2a2fd3442c2a0811.tar.gz calp-985ee1776348b2068fb6470e2a2fd3442c2a0811.tar.xz | |
Start update of types.
Diffstat (limited to 'guile_interface.scm.c')
| -rw-r--r-- | guile_interface.scm.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/guile_interface.scm.c b/guile_interface.scm.c index 244116e3..0fd46505 100644 --- a/guile_interface.scm.c +++ b/guile_interface.scm.c @@ -47,7 +47,7 @@ SCM_DEFINE (vcomponent_get_attribute, "%vcomponent-get-attribute", 2, 0, 0, if (c == NULL) return SCM_BOOL_F; SCM llist = SCM_EOL; - FOR (LLIST, content_set, v, &c->val) { + FOR (LLIST, content_set, v, c) { llist = scm_cons(scm_from_strbuf(&v->key), llist); } @@ -70,9 +70,9 @@ SCM_DEFINE (vcomponent_set_attr_x, "%vcomponent-set-attribute!", 3, 0, 0, content_line* c = get_property (com, key); free(key); - 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); + scm_gc_unprotect_object(c->cur->value->key.scm); + c->cur->value->key.scm = new_value; + scm_gc_protect_object(c->cur->value->key.scm); return SCM_UNSPECIFIED; } |