more generic SCM arg typechecking

[lilypond.git] / lily / book.cc

diff --git a/lily/book.cc b/lily/book.cc
index f4d4dd790e1310b31cc53223b3e23f4b6f4e9404..01e52ce9cdce87151b731a9301e653813a399af1 100644 (file)
--- a/lily/book.cc
+++ b/lily/book.cc
@@ -83,11 +83,6 @@ Book::mark_smob (SCM s)
 {
   Book *book = (Book *) SCM_CELL_WORD_1 (s);
 
-#if 0
-  if (book->key_)
-    scm_gc_mark (book->key_->self_scm ());
-#endif
-
   if (book->paper_)
     scm_gc_mark (book->paper_->self_scm ());
   scm_gc_mark (book->scores_);