X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmodule-scheme.cc;h=f930a2856ed3980b8a040177853bbf18412da7da;hb=2f2c63651eb4bf58d0dd8754e90da5de74752f95;hp=46e846e14ba9474c91c0789686862036d4ef2a86;hpb=878e94c966d1eb7104be133611566564e2edeb8b;p=lilypond.git diff --git a/lily/module-scheme.cc b/lily/module-scheme.cc index 46e846e14b..f930a2856e 100644 --- a/lily/module-scheme.cc +++ b/lily/module-scheme.cc @@ -3,16 +3,15 @@ source file of the GNU LilyPond music typesetter - (c) 2005 Han-Wen Nienhuys - + (c) 2005--2006 Han-Wen Nienhuys */ -#include "lily-guile.hh" +#include "ly-module.hh" + #include "warn.hh" #include "main.hh" -#include "string.hh" +#include "std-string.hh" -#include "ly-module.hh" /* If a variable in changed in SRC, we DEST doesn't see the @@ -41,20 +40,18 @@ LY_DEFINE (ly_module_copy, "ly:module-copy", return SCM_UNSPECIFIED; } -LY_DEFINE(ly_clear_anonymous_modules, "ly:clear-anonymous-modules", - 0, 0, 0, (), - "Plug a GUILE 1.6 and 1.7 memory leak by breaking a weak reference " - "pointer cycle explicitly." - ) +LY_DEFINE (ly_clear_anonymous_modules, "ly:clear-anonymous-modules", + 0, 0, 0, (), + "Plug a GUILE 1.6 and 1.7 memory leak by breaking a weak reference " + "pointer cycle explicitly.") { #ifdef MODULE_GC_KLUDGE - clear_anonymous_modules(); + clear_anonymous_modules (); #endif return SCM_UNSPECIFIED; } - /* Lookup SYM, but don't give error when it is not defined. */ SCM ly_module_lookup (SCM module, SCM sym)