From: David Kastrup <dak@gnu.org>
Date: Sat, 3 Mar 2012 13:09:27 +0000 (+0100)
Subject: dispatcher.cc: fix type mismatch error in Dispatcher::print_smob
X-Git-Tag: release/2.15.32-1^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=060006b3bae5d27a7c280751c8dba2350c576fa0;p=lilypond.git

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

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;
 }