From a514490dcbb4aaaca3a5e4fc71ef194fea18b37f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 5 Feb 2019 23:17:08 +0100
Subject: Add llist FIRST & LAST, rewrote code to use them.

---
 scheme.scm.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'scheme.scm.c')

diff --git a/scheme.scm.c b/scheme.scm.c
index da8cd3f1..a7ddc27d 100644
--- a/scheme.scm.c
+++ b/scheme.scm.c
@@ -53,7 +53,7 @@ SCM_DEFINE (calendar_get_attr, "calendar-get-attr", 3, 0, 0,
 
 	// TODO actuall iterators
 	// TODO this reverses the list
-	for ( LINK(strbuf)* n = c->vals.head->after;
+	for ( LINK(strbuf)* n = FIRST(&c->vals);
 			n->after != NULL;
 			n = n->after) {
 		llist = scm_cons(scm_from_strbuf(n->value), llist);
-- 
cgit v1.2.3