From 060006b3bae5d27a7c280751c8dba2350c576fa0 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Sat, 3 Mar 2012 14:09:27 +0100
Subject: [PATCH] dispatcher.cc: fix type mismatch error in
 Dispatcher::print_smob

---
 lily/dispatcher.cc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lily/dispatcher.cc b/lily/dispatcher.cc
index 3758f46347..ad1a624b12 100644
--- 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;
 }
-- 
2.39.2