(mark_smob): bugfix.

diff --git a/ChangeLog b/ChangeLog
index 8c804d993661bb2529680bbcf9861a70e76808ed..bf1a33105bf207c5240037d66efa2504023562f2 100644 (file)
--- 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 d4fd65187530713c97ae2877d1c05ebecb9c8b71..74aa88d78b623ed7d955b644d6bb87a401cc93fb 100644 (file)
--- 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 ());