ui.render: small simplification

diff --git a/basis/ui/render/render.factor b/basis/ui/render/render.factor
index f77a4e5582d768b54d3586021a73cc2306c66083..14ccde0e7260f8e7c56f2c8c760f633f8cec1d56 100644 (file)
--- a/basis/ui/render/render.factor
+++ b/basis/ui/render/render.factor
@@ -104,9 +104,9 @@ M: gadget gadget-foreground dup interior>> pen-foreground ;
     ] with-translation ;
 
 : draw-border ( object -- )
-    dup boundary>> dup [
+    dup boundary>> [
         origin get [ draw-boundary ] with-translation
-    ] [ 2drop ] if ;
+    ] [ drop ] if* ;
 
 PRIVATE>