From aa90c52e43d32d88d4a0fd8d1a42714a1a0adff6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 8 Mar 2019 13:53:37 +0100 Subject: Fix error when looking at cloned events. --- guile_interface.scm.c | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'guile_interface.scm.c') diff --git a/guile_interface.scm.c b/guile_interface.scm.c index a134848d..a5921869 100644 --- a/guile_interface.scm.c +++ b/guile_interface.scm.c @@ -25,9 +25,7 @@ SCM_DEFINE (make_vcomponent, "%vcomponent-make", 1, 0, 0, read_vcalendar(cal, p); free(p); - return scm_make_foreign_object_1 - (vcomponent_type, cal); - + return scm_from_vcomponent (cal); } /* @@ -188,10 +186,8 @@ SCM_DEFINE(vcomponent_shallow_copy, "%vcomponent-shallow-copy", 1, 0, 0, (vcomponent*) scm_gc_malloc ( sizeof(*dest), "vcomponent"); INIT(vcomponent, dest, src->type, NULL); - vcomponent_copy (dest, src); - return scm_make_foreign_object_1 - (vcomponent_type, dest); + return scm_from_vcomponent (dest); } void init_lib (void) { -- cgit v1.2.3