diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-08 13:53:37 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-08 13:54:19 +0100 |
| commit | aa90c52e43d32d88d4a0fd8d1a42714a1a0adff6 (patch) | |
| tree | 8de14e74bd2677404721b6cc56fbe25b91aadde2 /guile_interface.scm.c | |
| parent | Clean up srfi-19 util. (diff) | |
| download | calp-aa90c52e43d32d88d4a0fd8d1a42714a1a0adff6.tar.gz calp-aa90c52e43d32d88d4a0fd8d1a42714a1a0adff6.tar.xz | |
Fix error when looking at cloned events.
Diffstat (limited to 'guile_interface.scm.c')
| -rw-r--r-- | guile_interface.scm.c | 8 |
1 files changed, 2 insertions, 6 deletions
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) { |