diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-02-11 01:34:40 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-02-15 20:03:43 +0100 |
commit | 60c7d789ce21cb77bdf9dd2c8cb22e86232d903f (patch) | |
tree | 45a2995340c1f2c2891369eb3ec5e2c6aae7b87c /scheme.scm.c | |
parent | Replace key_val type with templatized PAIR(T, V). (diff) | |
download | calp-60c7d789ce21cb77bdf9dd2c8cb22e86232d903f.tar.gz calp-60c7d789ce21cb77bdf9dd2c8cb22e86232d903f.tar.xz |
Rewrote content_line, and how parameters are stored.
Diffstat (limited to 'scheme.scm.c')
-rw-r--r-- | scheme.scm.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scheme.scm.c b/scheme.scm.c index d148a435..7d96f2d6 100644 --- a/scheme.scm.c +++ b/scheme.scm.c @@ -61,7 +61,7 @@ SCM_DEFINE (calendar_get_attr, "calendar-get-attr", 3, 0, 0, if (c == NULL) return SCM_BOOL_F; - return scm_from_llist(&c->vals); + return scm_from_llist(&c->val); } SCM scm_from_trie_node(TRIE_NODE(content_line)* node) { @@ -75,7 +75,7 @@ SCM scm_from_trie_node(TRIE_NODE(content_line)* node) { SCM lst; if (node->value != NULL) { lst = scm_cons(scm_from_char(node->c), - scm_from_llist(&node->value->vals)); + scm_from_llist(&node->value->val)); } else { lst = scm_list_1(scm_from_char(node->c)); } |