]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/chord-name.cc
release: 1.3.75
[lilypond.git] / lily / chord-name.cc
index c05ebfc18799a7e40b2c0d9af2ee37f0831cc7de..62562e08ec1a96e57a62a66a171bdbb003211d0c 100644 (file)
@@ -136,11 +136,11 @@ Chord_name::brew_molecule (SCM smob)
     style = ly_str02scm ("banter");
 
   SCM inversion = sc-> get_elt_property ("inversion");
-  if (inversion != SCM_BOOL_T)
+  if (inversion == SCM_EOL)
     inversion = SCM_BOOL_F;
 
   SCM bass =  sc->get_elt_property ("bass");
-  if (bass != SCM_BOOL_T)
+  if (bass == SCM_EOL)
     bass = SCM_BOOL_F;
 
   SCM pitches =  sc->get_elt_property ("pitches");