--- a/src/high-level/boxes.lisp Tue Jul 04 13:24:51 2017 +0000
+++ b/src/high-level/boxes.lisp Tue Jul 04 13:30:32 2017 +0000
@@ -116,10 +116,11 @@
(when background-color
(draw-box-background x y width height background-color))
(when (and border border-color)
- (ecase border
- (:light (draw-box-border-light x y width height border-color))
- (:heavy (draw-box-border-heavy x y width height border-color))
- (:double (draw-box-border-double x y width height border-color)))))
+ (funcall (ecase border
+ (:light #'draw-box-border-light)
+ (:heavy #'draw-box-border-heavy)
+ (:double #'draw-box-border-double))
+ x y width height border-color)))
(draw-box-contents x y width height contents)))