Release: bump VERSION_DEVEL.

[lilypond.git] / lily / include / protected-scm.hh

diff --git a/lily/include/protected-scm.hh b/lily/include/protected-scm.hh
index 61d0173dac12ab295f38baf8015ef10bff0de2c5..db8a151ff558854e31ad52e421a74bba7ccb228b 100644 (file)
--- a/lily/include/protected-scm.hh
+++ b/lily/include/protected-scm.hh
@@ -43,14 +43,18 @@
 class Protected_scm
 {
   SCM object_;
+  static SCM list_;
+  static SCM last_;
   Protected_scm (Protected_scm const &);
+  void protectify (SCM);
 public:
   Protected_scm ();
   Protected_scm (SCM);
-  ~Protected_scm ();
   Protected_scm &operator = (SCM);
   Protected_scm &operator = (Protected_scm const &);
-  operator SCM () const;
+  operator const SCM & () const;
+  operator SCM & ();
+  bool is_bound () const;  // SCM_UNBNDP balks at Protected_scm
 };
 
 #endif /* PROTECTED_SCM_HH */