From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 13 Sep 2002 23:05:59 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release/1.6.3~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=505568d1acdee890635181c2be1db2f14872a9d7;p=lilypond.git

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

diff --git a/lily/font-metric.cc b/lily/font-metric.cc
index 2a41c35dd5..a25bde424f 100644
--- a/lily/font-metric.cc
+++ b/lily/font-metric.cc
@@ -82,7 +82,7 @@ Font_metric::~Font_metric ()
 Font_metric::Font_metric ()
 {
   description_ = SCM_EOL;
-
+  self_scm_ = SCM_EOL;
   smobify_self ();
 }
 
diff --git a/lily/grob.cc b/lily/grob.cc
index 8119bedcbd..382cbe2de7 100644
--- a/lily/grob.cc
+++ b/lily/grob.cc
@@ -45,7 +45,7 @@ Grob::Grob (SCM basicprops)
   /*
     fixme: default should be no callback.
    */
-
+  self_scm_ = SCM_EOL;
   pscore_=0;
   status_ = 0;
   original_ = 0;
@@ -122,6 +122,8 @@ Grob::Grob (Grob const&s)
    : dim_cache_ (s.dim_cache_)
 {
   original_ = (Grob*) &s;
+  self_scm_ = SCM_EOL;
+
   immutable_property_alist_ = s.immutable_property_alist_;
 
   mutable_property_alist_ = SCM_EOL;
diff --git a/lily/music.cc b/lily/music.cc
index 1c7843d976..40d913266a 100644
--- a/lily/music.cc
+++ b/lily/music.cc
@@ -44,6 +44,7 @@ Music::Music (Music const &m)
 {
   immutable_property_alist_ = m.immutable_property_alist_;
   mutable_property_alist_ = SCM_EOL;
+  self_scm_ = SCM_EOL;
 
   /*
     First we smobify_self, then we copy over the stuff.  If we don't,
@@ -58,6 +59,7 @@ Music::Music (Music const &m)
 
 Music::Music (SCM l)
 {
+  self_scm_ = SCM_EOL;
   immutable_property_alist_ = l;
   mutable_property_alist_ = SCM_EOL;
   smobify_self ();
diff --git a/lily/translator.cc b/lily/translator.cc
index 3b233d7f05..dd4ea8c236 100644
--- a/lily/translator.cc
+++ b/lily/translator.cc
@@ -32,6 +32,7 @@ Translator::init ()
 
 Translator::Translator ()
 {
+  self_scm_ = SCM_EOL;
   init ();
   output_def_ = 0;
   smobify_self ();
@@ -39,6 +40,7 @@ Translator::Translator ()
 
 Translator::Translator (Translator const &s)
 {
+  self_scm_ = SCM_EOL;
   init ();
   output_def_ = s.output_def_;
   type_string_ = s.type_string_;