(internal_set_grob_property): Revert oops.

diff --git a/ChangeLog b/ChangeLog
index 41ee7239bacfc7ff9e5302ad85f1936c61c85e01..57b7bf482bd87d79fddbdc30dc2dfc5c8879e173 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2002-08-18  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+       * lily/grob-property.cc (internal_set_grob_property): Revert oops.
+
        * lily/input.cc (message): 
        * flower/warn.cc (message): Flush output.
 

diff --git a/lily/grob-property.cc b/lily/grob-property.cc
index 768f0d0724821163086fee9ea390c878eca62e06..a24ee01cd95bfc9c8b91bbcf819d1e2c6da91062 100644 (file)
--- a/lily/grob-property.cc
+++ b/lily/grob-property.cc
@@ -74,7 +74,7 @@ Grob::internal_set_grob_property (SCM s, SCM v)
 
   if (internal_type_checking_global_b)
     {
-      if (type_check_assignment (s, v, ly_symbol2scm ("backend-type?")))
+      if (!type_check_assignment (s, v, ly_symbol2scm ("backend-type?")))
        abort ();
       check_interfaces_for_property (this, s);
     }