From 4ec130209bcd88ffde56b9b44e2de2c043519ffc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 2 May 2019 23:44:20 +0200 Subject: Think it's only reintroducing of set! left. --- src/vcal.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/vcal.c') diff --git a/src/vcal.c b/src/vcal.c index f9f2cb75..208a47a9 100644 --- a/src/vcal.c +++ b/src/vcal.c @@ -47,7 +47,7 @@ INIT_F(vcomponent) { // vcomponent_push_val (self, "X-HNH-FILENAME", "VIRTUAL"); SNEW(strbuf, s); strbuf_load(&s, "X-HNH-SOURCETYPE"); - vcomponent_push_val (self, &s, scm_from_utf8_symbol("virtual")); + vcomponent_push_val (self, &s, scm_cons(scm_from_utf8_symbol("virtual"), SCM_BOOL_F)); FREE(strbuf)(&s); char* type = "VIRTUAL"; self->type = (char*) calloc(sizeof(*type), strlen(type) + 1); @@ -85,7 +85,7 @@ INIT_F(vcomponent, const char* type, const char* filename) { */ SNEW(strbuf, fname); strbuf_load (&fname, "X-HNH-FILENAME"); - vcomponent_push_val (self, &fname, scm_from_utf8_stringn(filename, strlen(filename))); + vcomponent_push_val (self, &fname, scm_cons(scm_from_utf8_stringn(filename, strlen(filename)), SCM_BOOL_F)); } self->type = (char*) calloc(sizeof(*type), strlen(type) + 1); @@ -195,7 +195,7 @@ int vcomponent_push_val (vcomponent* comp, strbuf* key, SCM val) { SCM k = scm_string_to_symbol (scm_from_utf8_stringn (key->mem, key->len)); // TODO this should cons - scm_hashq_set_x (comp->clines, k, val); + scm_hashq_set_x (comp->clines, k, scm_list_1 (val)); return 0; } -- cgit v1.2.3