From: hanwen <hanwen>
Date: Sat, 30 Jul 2005 17:37:45 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release/2.6.4~38
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=096368f66ee4c870a91501f58f12b0a4f559aa64;p=lilypond.git

*** empty log message ***
---

diff --git a/lily/ly-module.cc b/lily/ly-module.cc
index 5f36289288..a0ee8393f5 100644
--- a/lily/ly-module.cc
+++ b/lily/ly-module.cc
@@ -34,7 +34,7 @@ LY_DEFINE(ly_clear_anonymous_modules, "ly:clear-anonymous-modules",
       SCM closure = SCM_MODULE_EVAL_CLOSURE(module);
       SCM prop = scm_procedure_property (closure, ly_symbol2scm ("module")); 
 
-      if (ly_is_module (prop))
+      if (ly_c_module_p (prop))
 	{
 	  scm_set_procedure_property_x (closure, ly_symbol2scm ("module"),
 					SCM_BOOL_F);