From 82c63a1f2422c3f4b1599bcb889e3ed1fc4f6ed0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 3 Feb 2019 23:35:27 +0100 Subject: Add linked list generic type. --- scheme.scm.c | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'scheme.scm.c') 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, -- cgit v1.2.3