* ly/engraver-init.ly: add Rest_engraver only once.

[lilypond.git] / lily / smobs.cc

diff --git a/lily/smobs.cc b/lily/smobs.cc
index e984567be520ed5663c4bad95f44777896e7a251..57de04c09f259f87a9d8da202b8c6e378f97e463 100644 (file)
--- a/lily/smobs.cc
+++ b/lily/smobs.cc
@@ -8,6 +8,9 @@
 
 #include "smobs.hh"
 
+/*
+  The CDR contains the actual protected list.
+ */
 static SCM smob_protection_list;
 
 void
@@ -18,6 +21,16 @@ init_smob_protection ()
 }
 ADD_SCM_INIT_FUNC (init_smob_protection, init_smob_protection);
 
+LY_DEFINE(ly_smob_protects, "ly:smob-protects",
+         0,0,0, (),
+         "Return lily's internal smob protection list")
+{
+  return scm_cdr (smob_protection_list);
+}
+
+         
+         
+
 void
 protect_smob (SCM smob, SCM *prot_cons)
 {