diff options
author | Alessio Treglia <quadrispro@ubuntu.com> | 2010-01-08 18:21:56 +0100 |
---|---|---|
committer | Alessio Treglia <quadrispro@ubuntu.com> | 2010-01-08 18:21:56 +0100 |
commit | f369f1bdb2b9efc5b7ed3b74a0b4b51642086e18 (patch) | |
tree | 67d9e1386cd8c7b0fae976ca5c426dc43f54ed15 /snd-marks.c | |
parent | 8b022ab680a3f5e374a44f2c05c1671cfb2bc799 (diff) |
Imported Upstream version 11.2
Diffstat (limited to 'snd-marks.c')
-rw-r--r-- | snd-marks.c | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/snd-marks.c b/snd-marks.c index a2b381f..b70db2a 100644 --- a/snd-marks.c +++ b/snd-marks.c @@ -2072,7 +2072,7 @@ static bool xen_mark_equalp(xen_mark *v1, xen_mark *v2) static XEN equalp_xen_mark(XEN obj1, XEN obj2) { if ((!(XEN_MARK_P(obj1))) || (!(XEN_MARK_P(obj2)))) return(XEN_FALSE); - return(xen_return_first(C_TO_XEN_BOOLEAN(xen_mark_equalp(XEN_TO_XEN_MARK(obj1), XEN_TO_XEN_MARK(obj2))), obj1, obj2)); + return(C_TO_XEN_BOOLEAN(xen_mark_equalp(XEN_TO_XEN_MARK(obj1), XEN_TO_XEN_MARK(obj2)))); } #endif @@ -2131,12 +2131,6 @@ static void init_xen_mark(void) #endif #endif -#if HAVE_GUILE - scm_set_smob_print(xen_mark_tag, print_xen_mark); - scm_set_smob_free(xen_mark_tag, free_xen_mark); - scm_set_smob_equalp(xen_mark_tag, equalp_xen_mark); -#endif - #if HAVE_FORTH fth_set_object_inspect(xen_mark_tag, print_xen_mark); fth_set_object_dump(xen_mark_tag, g_xen_mark_to_string); |