Fix corner case in (lispkit draw char bar) preventing a legend to b…

…e drawn unless there is a bar segment description.
objecthub · Dec 31, 2024 · f1e7d9c · f1e7d9c
1 parent bb05f75
commit f1e7d9c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Sources/LispKit/Resources/Libraries/lispkit/draw/chart/bar.sld b/Sources/LispKit/Resources/Libraries/lispkit/draw/chart/bar.sld
@@ -659,7 +659,7 @@
                                    #t)
                             (bar-chart-stroke-width config))))
               ; Draw legend
-              (if (legend-config? legend-config)
+              (if (and (legend-config? legend-config) (pair? bcolor))
                   (draw-legend bcolor
                                bounds
                                (bar-chart-color config)