diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-03-08 10:05:35 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-03-08 10:05:35 +0100 |
| commit | 0dff6c5d179aeb9e1ba3fc5f4dd679987e342036 (patch) | |
| tree | c43ef6a0ef0fe6f684928a226a0f439975b20e01 /guile_interface.scm.c | |
| parent | Work on recuring event stream. (diff) | |
| download | calp-0dff6c5d179aeb9e1ba3fc5f4dd679987e342036.tar.gz calp-0dff6c5d179aeb9e1ba3fc5f4dd679987e342036.tar.xz | |
Remove C vector library.
Diffstat (limited to 'guile_interface.scm.c')
| -rw-r--r-- | guile_interface.scm.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/guile_interface.scm.c b/guile_interface.scm.c index 761bf7c2..2dcff513 100644 --- a/guile_interface.scm.c +++ b/guile_interface.scm.c @@ -96,7 +96,7 @@ SCM_DEFINE (vcomponent_child_count, "%vcomponent-child-count", 1, 0, 0, { scm_assert_foreign_object_type (vcomponent_type, component); vcomponent* c = scm_foreign_object_ref (component, 0); - return scm_from_size_t (SIZE(VECT(vcomponent))(&c->components)); + return scm_from_size_t (SIZE(LLIST(vcomponent))(&c->components)); } SCM_DEFINE(vcomponent_children, "%vcomponent-children", 1, 0, 0, @@ -105,7 +105,12 @@ SCM_DEFINE(vcomponent_children, "%vcomponent-children", 1, 0, 0, { scm_assert_foreign_object_type (vcomponent_type, component); vcomponent* cal = scm_foreign_object_ref (component, 0); - return scm_from_vector(&cal->components); + + SCM llist = SCM_EOL; + FOR (LLIST, vcomponent, v, &cal->components) { + llist = scm_cons(scm_from_vcomponent(v), llist); + } + return llist; } SCM_DEFINE(vcomponent_push_child_x, "%vcomponent-push-child!", 2, 0, 0, |