From 43d91bcf085b7eac1612dfb56e85eca8b93223ed Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 1 Nov 2012 16:59:45 -0700
Subject: [PATCH] ui.backend.cocoa.views: only set gl-scale-factor if > 1.0.

---
 basis/ui/backend/cocoa/views/views.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/ui/backend/cocoa/views/views.factor b/basis/ui/backend/cocoa/views/views.factor
index ad49c67bb5..82b44d22ac 100644
--- a/basis/ui/backend/cocoa/views/views.factor
+++ b/basis/ui/backend/cocoa/views/views.factor
@@ -307,9 +307,9 @@ CLASS: FactorView < NSOpenGLView NSTextInput
 
     METHOD: void prepareOpenGL [
         self 1 -> setWantsBestResolutionOpenGLSurface:
-        self -> backingScaleFactor
-        [ gl-scale-factor set-global ]
-        [ 1.0 > retina? set-global ] bi
+        self -> backingScaleFactor dup 1.0 > [
+            gl-scale-factor set-global t retina? set-global
+        ] [ drop ] if
     ]
 
     ! Initialization