use ``if*`` instead of ``dup [ ] [ drop ] if``.

[factor.git] / basis / ui / gadgets / buttons / buttons.factor

diff --git a/basis/ui/gadgets/buttons/buttons.factor b/basis/ui/gadgets/buttons/buttons.factor
index a8da106917338cf5bfac4bf090f1e1c4fe0dd8b0..869fd356065c99ee9890ef63b46fe13ce4ba5045 100644 (file)
--- a/basis/ui/gadgets/buttons/buttons.factor
+++ b/basis/ui/gadgets/buttons/buttons.factor
@@ -77,10 +77,10 @@ C: <button-pen> button-pen
     } cond ;
 
 M: button-pen draw-interior
-    lookup-button-pen dup [ draw-interior ] [ 2drop ] if ;
+    lookup-button-pen [ draw-interior ] [ drop ] if* ;
 
 M: button-pen draw-boundary
-    lookup-button-pen dup [ draw-boundary ] [ 2drop ] if ;
+    lookup-button-pen [ draw-boundary ] [ drop ] if* ;
 
 M: button-pen pen-pref-dim
     [