diff options
author | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2017-09-19 14:13:01 +0200 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@umlautQ.umlaeute.mur.at> | 2017-09-19 14:13:01 +0200 |
commit | a34abe0c374d2a9ec1bb5b1825bc0f88eaa7166c (patch) | |
tree | 947aa68818ffb3a0c7123ef11567cb80aaaa7537 /xm.c | |
parent | 75bedf4141806f1b12c07964ae633c6893a2efa6 (diff) |
New upstream version 17.7
Diffstat (limited to 'xm.c')
-rw-r--r-- | xm.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -387,7 +387,9 @@ static Xen make_xm_obj(void *ptr) static void define_xm_obj(void) { #if HAVE_SCHEME - xm_obj_tag = s7_new_type_x(s7, "<XmObj>", NULL, xm_obj_free, s7_equalp_xm, NULL, NULL, NULL, NULL, NULL, NULL, NULL); + xm_obj_tag = s7_make_c_type(s7, "<XmObj>"); + s7_c_type_set_free(s7, xm_obj_tag, xm_obj_free); + s7_c_type_set_equal(s7, xm_obj_tag, s7_equalp_xm); #else xm_obj_tag = Xen_make_object_type("XmObj", sizeof(void *)); #endif |