# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1499175032 0
# Node ID 5fca83b35760d28968acce50c75ea059966f2e4c
# Parent  8e35ed93d73138a395b85ee6f13a9d8e1f08e8fd
Clean up border choosing

diff -r 8e35ed93d731 -r 5fca83b35760 src/high-level/boxes.lisp
--- 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)))