Doc: NR add @knownissues for Percent Repeats

[lilypond.git] / lily / context-property.cc

diff --git a/lily/context-property.cc b/lily/context-property.cc
index 70370e3800d59bfdcf104fc41891986044f9bb43..99b16f669b116d3028c738e2532918ae01ae265c 100644 (file)
--- a/lily/context-property.cc
+++ b/lily/context-property.cc
@@ -1,7 +1,7 @@
 /*
   This file is part of LilyPond, the GNU music typesetter.
 
-  Copyright (C) 2004--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  Copyright (C) 2004--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
   LilyPond is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
@@ -55,18 +55,18 @@ general_pushpop_property (Context *context,
 bool
 typecheck_grob (SCM symbol, SCM value)
 {
-  if (Unpure_pure_container *upc = Unpure_pure_container::unsmob (value))
+  if (Unpure_pure_container *upc = unsmob<Unpure_pure_container> (value))
     return typecheck_grob (symbol, upc->unpure_part ())
       && typecheck_grob (symbol, upc->pure_part ());
   return ly_is_procedure (value)
-    || Simple_closure::is_smob (value)
+    || unsmob<Simple_closure> (value)
     || type_check_assignment (symbol, value, ly_symbol2scm ("backend-type?"));
 }
 
 class Grob_properties : public Simple_smob<Grob_properties>
 {
 public:
-  SCM mark_smob ();
+  SCM mark_smob () const;
   static const char type_p_name_[];
 private:
   friend class Grob_property_info;
@@ -97,7 +97,7 @@ private:
 const char Grob_properties::type_p_name_[] = "ly:grob-properties?";
 
 SCM
-Grob_properties::mark_smob ()
+Grob_properties::mark_smob () const
 {
   scm_gc_mark (alist_);
   scm_gc_mark (based_on_);
@@ -124,8 +124,8 @@ Grob_property_info::find ()
   SCM res = SCM_UNDEFINED;
   if (Context *c = context_->where_defined (symbol_, &res))
     if (c != context_)
-      return Grob_property_info (c, symbol_, Grob_properties::unsmob (res));
-  props_  = Grob_properties::unsmob (res);
+      return Grob_property_info (c, symbol_, unsmob<Grob_properties> (res));
+  props_  = unsmob<Grob_properties> (res);
   return *this;
 }
 
@@ -136,7 +136,7 @@ Grob_property_info::check ()
     return true;
   SCM res = SCM_UNDEFINED;
   if (context_->here_defined (symbol_, &res))
-    props_ = Grob_properties::unsmob (res);
+    props_ = unsmob<Grob_properties> (res);
   return props_;
 }
 
@@ -165,7 +165,7 @@ Grob_property_info::create ()
       || !g->here_defined (symbol_, &current_context_val))
     return false;
 
-  Grob_properties *def = Grob_properties::unsmob (current_context_val);
+  Grob_properties *def = unsmob<Grob_properties> (current_context_val);
 
   if (!def)
     {
@@ -180,7 +180,7 @@ Grob_property_info::create ()
   // any, they will be factored in when `updated' is being called.
   SCM props = Grob_properties (def->alist_, def->alist_).smobbed_copy ();
   context_->set_property (symbol_, props);
-  props_ = Grob_properties::unsmob (props);
+  props_ = unsmob<Grob_properties> (props);
   return props_;
 }
 
@@ -321,24 +321,24 @@ apply_property_operations (Context *tg, SCM pre_init_ops)
       SCM type = scm_car (entry);
       entry = scm_cdr (entry);
 
-      if (type == ly_symbol2scm ("push"))
+      if (scm_is_eq (type, ly_symbol2scm ("push")))
         {
           SCM context_prop = scm_car (entry);
           SCM val = scm_cadr (entry);
           SCM grob_prop_path = scm_cddr (entry);
           Grob_property_info (tg, context_prop).push (grob_prop_path, val);
         }
-      else if (type == ly_symbol2scm ("pop"))
+      else if (scm_is_eq (type, ly_symbol2scm ("pop")))
         {
           SCM context_prop = scm_car (entry);
           SCM grob_prop_path = scm_cdr (entry);
           Grob_property_info (tg, context_prop).pop (grob_prop_path);
         }
-      else if (type == ly_symbol2scm ("assign"))
+      else if (scm_is_eq (type, ly_symbol2scm ("assign")))
         tg->set_property (scm_car (entry), scm_cadr (entry));
-      else if (type == ly_symbol2scm ("apply"))
+      else if (scm_is_eq (type, ly_symbol2scm ("apply")))
        scm_apply_1 (scm_car (entry), tg->self_scm (), scm_cdr (entry));
-      else if (type == ly_symbol2scm ("unset"))
+      else if (scm_is_eq (type, ly_symbol2scm ("unset")))
         tg->unset_property (scm_car (entry));
     }
 }