ui.backend.cocoa.views: set gl-scale-factor to f if 1.0.

diff --git a/basis/ui/backend/cocoa/views/views.factor b/basis/ui/backend/cocoa/views/views.factor
index cba6a9cda889e29d4bd611f463fb93d470d6051e..d1f4f31c0e527df88b33b404cafa34705644bf2b 100644 (file)
--- a/basis/ui/backend/cocoa/views/views.factor
+++ b/basis/ui/backend/cocoa/views/views.factor
@@ -397,7 +397,7 @@ CLASS: FactorWindowDelegate < NSObject
         notification -> object dup SEL: backingScaleFactor
         -> respondsToSelector: c-bool> [
             SEND: backingScaleFactor execute( x x -- x )
-            [ gl-scale-factor set-global ]
+            [ [ 1.0 > ] keep f ? gl-scale-factor set-global ]
             [ 1.0 > retina? set-global ] bi
         ] [ drop ] if
     ]