From 149cc270ff0c4e00cf7064dbc7f2c68be1abe8c6 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 19 May 2020 19:10:51 -0700
Subject: [PATCH] ui.images: fix for gl-scale-factor not being set.

---
 basis/ui/images/images.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/ui/images/images.factor b/basis/ui/images/images.factor
index 31d2000fad..49341263f4 100644
--- a/basis/ui/images/images.factor
+++ b/basis/ui/images/images.factor
@@ -17,7 +17,7 @@ MEMO: cached-image-path ( path -- image )
 PRIVATE>
 
 : cached-image ( image-name -- image )
-    path>> gl-scale-factor get-global 1.0 > [
+    path>> gl-scale-factor get-global [ 1.0 > ] [ f ] if* [
         "." split1-last "@2x." glue
     ] when cached-image-path ;