]> git.donarmstrong.com Git - lilypond.git/blobdiff - scm/bar-line.scm
Add '-dcrop' option to ps and svg backends
[lilypond.git] / scm / bar-line.scm
index 86d12d9b217fe8c5f70ef869ff6d2e5a718955fb..3fad8f8912949bf96a9944b6a1019432be850cb3 100644 (file)
@@ -512,7 +512,7 @@ opening bracket will be drawn, for @code{RIGHT} we get the closing bracket."
                                               (interval-start extent)
                                               Y))))
 
-    (if (eq? dir LEFT)
+    (if (eqv? dir LEFT)
         stencil
         (ly:stencil-scale stencil -1 1))))