ui.gadgets.sliders: prevent negative elevator-length.

diff --git a/basis/ui/gadgets/sliders/sliders.factor b/basis/ui/gadgets/sliders/sliders.factor
index 835b2029b6cf87d15c346e13937e92be19f0a364..e195b376ab5bb5065ee332593bd0e9700528f871 100644 (file)
--- a/basis/ui/gadgets/sliders/sliders.factor
+++ b/basis/ui/gadgets/sliders/sliders.factor
@@ -32,7 +32,7 @@ CONSTANT: elevator-padding 4
 
 : elevator-length ( slider -- n )
     [ elevator>> dim>> ] [ orientation>> ] bi v.
-    elevator-padding 2 * - ;
+    elevator-padding 2 * [-] ;
 
 CONSTANT: min-thumb-dim 30