5fca83b35760

Clean up border choosing
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Tue, 04 Jul 2017 13:30:32 +0000
parents 8e35ed93d731
children 712aef6ff9cb
branches/tags (none)
files src/high-level/boxes.lisp

Changes

--- 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)))