- SCM entry = scm_cons (scm_from_int (priority), l.smobbed_copy ());
- list = scm_merge (list, scm_list_1 (entry), ly_lily_module_constant ("car<"));
- scm_hashq_set_x (listeners_, ev_class, list);
+ SCM entry = scm_cons (scm_from_int (priority), callback);
+ list = scm_merge (list, scm_list_1 (entry), Lily::car_less);
+ scm_set_cdr_x (handle, list);