ui.gadgets.scrollers: minor cleanup using if*.

diff --git a/basis/ui/gadgets/scrollers/scrollers.factor b/basis/ui/gadgets/scrollers/scrollers.factor
index bd587bf23c7cd6373d16517810a9214b40fe259a..9b9ae8c690cdf094880d22ad9e1fc4bbadb8b532 100644 (file)
--- a/basis/ui/gadgets/scrollers/scrollers.factor
+++ b/basis/ui/gadgets/scrollers/scrollers.factor
@@ -147,19 +147,19 @@ PRIVATE>
         [ build-header-scroller ] [ build-scroller ] if ;
 
 : scroll>rect ( rect gadget -- )
-    dup find-scroller* dup [
+    dup find-scroller* [
         [ relative-scroll-rect ] keep
         swap >>follows
         relayout
-    ] [ 3drop ] if ;
+    ] [ 2drop ] if* ;
 
 : scroll>gadget ( gadget -- )
-    dup find-scroller* dup [
+    dup find-scroller* [
         swap >>follows
         relayout
     ] [
-        2drop
-    ] if ;
+        drop
+    ] if* ;
 
 : scroll>bottom ( gadget -- )
     find-scroller [ t >>follows relayout-1 ] when* ;