diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-02-03 23:35:27 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-02-03 23:35:27 +0100 |
| commit | 82c63a1f2422c3f4b1599bcb889e3ed1fc4f6ed0 (patch) | |
| tree | c433dbc1621492794c6d9993f4939aa68c20940b /scheme.scm.c | |
| parent | Loads of memmory fixes, among other. (diff) | |
| download | calp-82c63a1f2422c3f4b1599bcb889e3ed1fc4f6ed0.tar.gz calp-82c63a1f2422c3f4b1599bcb889e3ed1fc4f6ed0.tar.xz | |
Add linked list generic type.
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, |