dispatcher.cc: fix type mismatch error in Dispatcher::print_smob

diff --git a/lily/dispatcher.cc b/lily/dispatcher.cc
index 3758f46347da55032002c7555b60216149cf27ce..ad1a624b121917b67fe03bc0944cce96a0325de4 100644 (file)
--- a/lily/dispatcher.cc
+++ b/lily/dispatcher.cc
@@ -58,7 +58,8 @@ Dispatcher::print_smob (SCM s, SCM p, scm_print_state *)
 {
   Dispatcher *me = (Dispatcher *) SCM_CELL_WORD_1 (s);
   scm_puts ("#<Dispatcher ", p);
-  scm_write (scm_vector_to_list (me->listeners_), p);
+  scm_write (scm_call_1 (ly_lily_module_constant ("hash-table->alist"),
+                        me->listeners_), p);
   scm_puts (">", p);
   return 1;
 }