From: hanwen <hanwen>
Date: Fri, 19 Aug 2005 12:07:35 +0000 (+0000)
Subject: * Documentation/user/examples.itely (Piano templates): change
X-Git-Tag: release/2.6.4~17^2~33
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d2198b751b76efcb79c43b0b06dfb2428793fd7e;p=lilypond.git

* Documentation/user/examples.itely (Piano templates): change
Engraver_group_engraver -> Engraver_group

* lily/ly-module.cc (make_stand_in_procs_weak): only kludge if
scm_stand_in_procs is not weak_any.
---

diff --git a/ChangeLog b/ChangeLog
index b5e17bbc69..7c96099a10 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2005-08-19  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* Documentation/user/examples.itely (Piano templates): change
+	Engraver_group_engraver -> Engraver_group
+
 	* lily/ly-module.cc (make_stand_in_procs_weak): only kludge if
 	scm_stand_in_procs is not weak_any.
 
diff --git a/Documentation/user/changing-defaults.itely b/Documentation/user/changing-defaults.itely
index 526b8490ff..aac59057ea 100644
--- a/Documentation/user/changing-defaults.itely
+++ b/Documentation/user/changing-defaults.itely
@@ -661,7 +661,7 @@ to indicate improvisation in Jazz pieces,
 @lilypond[quote,raggedright]
 \layout { \context {
   \name ImproVoice
-  \type "Engraver_group_engraver"
+  \type "Engraver_group"
   \consists "Note_heads_engraver"
   \consists "Text_engraver"
   \consists Pitch_squash_engraver
@@ -740,10 +740,10 @@ The notes look like a slash, without a stem,
 
 All these plug-ins have to cooperate, and this is achieved with a
 special plug-in, which must be marked with the keyword @code{\type}.
-This should always be @internalsref{Engraver_group_engraver},
+This should always be @internalsref{Engraver_group},
 
 @example
-\type "Engraver_group_engraver"
+\type "Engraver_group"
 @end example
 
 Put together, we get
@@ -751,7 +751,7 @@ Put together, we get
 @example
 \context @{
   \name ImproVoice
-  \type "Engraver_group_engraver"
+  \type "Engraver_group"
   \consists "Note_heads_engraver"
   \consists "Text_engraver"
   \consists Pitch_squash_engraver
diff --git a/Documentation/user/examples.itely b/Documentation/user/examples.itely
index bb1a37749d..09ce4a82ed 100644
--- a/Documentation/user/examples.itely
+++ b/Documentation/user/examples.itely
@@ -334,7 +334,7 @@ pedal = {
   >>
   \layout {
     \context {
-      \type "Engraver_group_engraver"
+      \type "Engraver_group"
       \name Dynamics
       \alias Voice % So that \cresc works, for example.
       \consists "Output_property_engraver"
diff --git a/lily/ly-module.cc b/lily/ly-module.cc
index 9bc5f32986..9ce3b38087 100644
--- a/lily/ly-module.cc
+++ b/lily/ly-module.cc
@@ -14,11 +14,13 @@
 
 #ifdef MODULE_GC_KLUDGE
 Protected_scm anonymous_modules = SCM_EOL;
+bool perform_gc_kludge;
 #endif
 
 void
 clear_anonymous_modules ()
 {
+#ifdef MODULE_GC_KLUDGE
   for (SCM s = anonymous_modules;
        scm_is_pair (s);
        s = scm_cdr (s))
@@ -35,6 +37,7 @@ clear_anonymous_modules ()
     }
 
   anonymous_modules = SCM_EOL;
+#endif
 }
 
 SCM
@@ -61,7 +64,8 @@ ly_make_anonymous_module (bool safe)
     }
 
 #ifdef MODULE_GC_KLUDGE
-  anonymous_modules = scm_cons (mod, anonymous_modules);
+  if (perform_gc_kludge)
+    anonymous_modules = scm_cons (mod, anonymous_modules);
 #endif
 
   return mod;
@@ -153,7 +157,15 @@ void
 make_stand_in_procs_weak ()
 {
   if (SCM_IS_WHVEC_ANY(scm_stand_in_procs))
-    return; 
+    {
+#if (SCM_MINOR_VERSION == 7) 
+      perform_gc_kludge = false;
+#endif
+      return; 
+    }
+  
+  perform_gc_kludge = true;
+  
   
   SCM old_tab = scm_stand_in_procs;
   SCM new_tab = scm_make_weak_key_hash_table (scm_from_int (257));