From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 18 Aug 2002 15:23:39 +0000 (+0000)
Subject: (internal_set_grob_property): Revert oops.
X-Git-Tag: release/1.6.0~35
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=68fb260abb8626df7ac508edebdadd8eca56348f;p=lilypond.git

(internal_set_grob_property): Revert oops.
---

diff --git a/ChangeLog b/ChangeLog
index 41ee7239ba..57b7bf482b 100644
--- 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 768f0d0724..a24ee01cd9 100644
--- 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);
     }