diff options
Diffstat (limited to 'scheme.scm.c')
| -rw-r--r-- | scheme.scm.c | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/scheme.scm.c b/scheme.scm.c index 84e4f40c..e62610ff 100644 --- a/scheme.scm.c +++ b/scheme.scm.c @@ -49,7 +49,15 @@ SCM_DEFINE (calendar_get_attr, "calendar-get-attr", 3, 0, 0, if (c == NULL) return SCM_BOOL_F; - return scm_from_strbuf(&c->val); + LINK(strbuf)* cur = c->vals.head; + SCM llist = NULL; + while (cur != NULL) { + llist = scm_cons (scm_from_strbuf(cur->value), llist); + cur = cur->after; + } + + // // return scm_from_strbuf(&c->val); + return llist; } SCM_DEFINE (calendar_size, "calendar-size", 1, 0, 0, |