diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-03 23:56:59 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-03 23:56:59 +0200 |
commit | 60d51e5700a55bc3ae17e34f9f3da1d4653a3026 (patch) | |
tree | 7ae258360215ce63c591204f5ba8ec7080305f1e /src/struct.scm.c | |
parent | Fix problem with no end date. (diff) | |
download | calp-60d51e5700a55bc3ae17e34f9f3da1d4653a3026.tar.gz calp-60d51e5700a55bc3ae17e34f9f3da1d4653a3026.tar.xz |
Everything seems to parse now.
Diffstat (limited to '')
-rw-r--r-- | src/struct.scm.c | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/src/struct.scm.c b/src/struct.scm.c index 9b11696d..a8e7b3c6 100644 --- a/src/struct.scm.c +++ b/src/struct.scm.c @@ -28,7 +28,7 @@ SCM_DEFINE(scm_parse_cal_path, "parse-cal-path", 1, 0, 0, (SCM path), "") { - SCM root = scm_make_vcomponent(SCM_UNSPECIFIED); + SCM root = scm_make_vcomponent(SCM_UNDEFINED); char* p = scm_to_utf8_stringn(path, NULL); read_vcalendar(root, p); @@ -58,12 +58,15 @@ SCM_DEFINE(scm_add_child_x, "add-child!", 2, 0, 0, } -SCM_DEFINE(scm_make_vline, "make-vline", 0, 0, 0, - (), "") +SCM_DEFINE(scm_make_vline, "make-vline", 0, 1, 0, + (SCM value), "") { + + if (SCM_UNBNDP (value)) value = SCM_BOOL_F; + return scm_make_struct_no_tail - (vline_vtable, - scm_list_2(SCM_BOOL_F, scm_make_hash_table(scm_from_int(0x10)))); + (vline_vtable, + scm_list_2(value, scm_make_hash_table(scm_from_int(0x10)))); } |