From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 1 Mar 2003 13:01:24 +0000 (+0000)
Subject: (mark_smob): bugfix.
X-Git-Tag: release/1.7.14~17
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=567c1a1faadcf0e781706fd14f2413e7a03c838c;p=lilypond.git

(mark_smob): bugfix.
---

diff --git a/ChangeLog b/ChangeLog
index 8c804d9936..bf1a33105b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2003-03-01  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
+	* lily/score.cc (mark_smob): bugfix.
+
 	* input/regression/rehearsal-mark.ly: new file.
 
 	* lily/my-lily-parser.cc (here_input): revert reporting of errors:
diff --git a/lily/score.cc b/lily/score.cc
index d4fd651875..74aa88d78b 100644
--- a/lily/score.cc
+++ b/lily/score.cc
@@ -160,7 +160,8 @@ Score::mark_smob (SCM s)
 {
   Score * sc = (Score*) SCM_CELL_WORD_1 (s);
 
-  scm_gc_mark (sc->header_);
+  if (sc->header_)
+    scm_gc_mark (sc->header_);
   for (int i = sc->defs_.size (); i--;)
     scm_gc_mark (sc->defs_[i]->self_scm ());