diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-02-25 22:59:53 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-02-25 22:59:53 +0100 |
| commit | 6355700d4101a6e515311c96bf8e25bb1bb51d92 (patch) | |
| tree | 01b362d60f6fa58d55a0bd1e76e2c3194d2b5b1e /guile_interface.scm.c | |
| parent | Reenable guile stuff. (diff) | |
| download | calp-6355700d4101a6e515311c96bf8e25bb1bb51d92.tar.gz calp-6355700d4101a6e515311c96bf8e25bb1bb51d92.tar.xz | |
Add scm field to strbuf.
Diffstat (limited to 'guile_interface.scm.c')
| -rw-r--r-- | guile_interface.scm.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/guile_interface.scm.c b/guile_interface.scm.c index a4eb7f8b..6b9de8dc 100644 --- a/guile_interface.scm.c +++ b/guile_interface.scm.c @@ -47,6 +47,7 @@ SCM_DEFINE (vcomponent_get_attribute, "vcomponent-get-attribute", 2, 0, 0, if (c == NULL) return SCM_BOOL_F; + // TODO returns the car of list if list is one long. SCM llist = SCM_EOL; FOR (LLIST, content_set, v, &c->val) { llist = scm_cons(scm_from_strbuf(&v->key), llist); @@ -65,9 +66,9 @@ SCM_DEFINE (vcomponent_set_attr_x, "vcomponent-set-attribute!", 3, 0, 0, content_line* c = get_property (com, key); free(key); - c->val.cur->value->key.mem = (char*) new_value; - - + // TODO if list is a value store it as is, else wrap it in a list + // of length one. + c->val.cur->value->key.scm = new_value; return SCM_UNSPECIFIED; } |