X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=lily%2Fmodule-scheme.cc;h=8938229e5952263eade2b9b9558cb37b337531d4;hb=8cab78caa0db1ba14f2e52e4c1ddbb541ea0e5cb;hp=173226ac15e4a99a95ab825b5dc5fb9d340ac400;hpb=5b4b0d6e9a197e8f9eb085b7c2ad78b8be3e5cfc;p=lilypond.git

diff --git a/lily/module-scheme.cc b/lily/module-scheme.cc
index 173226ac15..8938229e59 100644
--- a/lily/module-scheme.cc
+++ b/lily/module-scheme.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 2005--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  (c) 2005--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
 #include "ly-module.hh"
@@ -19,9 +19,11 @@
 */
 
 static SCM
-module_define_closure_func (void *closure, SCM key, SCM val, SCM result)
+module_define_closure_func (void *closure,
+			    SCM key,
+			    SCM val,
+			    SCM /* result */)
 {
-  (void) result;
   SCM module = (SCM) closure;
   if (scm_variable_bound_p (val) == SCM_BOOL_T)
     scm_module_define (module, key, scm_variable_ref (val));