ui.render: small simplification

2017-07-01 07:51:10 +02:00 · 2017-07-01 07:51:10 +02:00 · 3b78ec7b6f
parent f0fac14c14
commit 3b78ec7b6f
1 changed files with 2 additions and 2 deletions
--- 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>