From 39f8abc764966660f3f65e66bf4d179dcadfe144 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 10 Mar 2020 03:53:14 -0500
Subject: [PATCH] images.loader: Disable saving a bmp on win32.

This is probably fixable with enough auditing of the gdiplus flat
interface.
---
 basis/images/loader/loader-tests.factor | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/basis/images/loader/loader-tests.factor b/basis/images/loader/loader-tests.factor
index c4a8fdb7a3..695f0d1370 100644
--- a/basis/images/loader/loader-tests.factor
+++ b/basis/images/loader/loader-tests.factor
@@ -40,10 +40,12 @@ os { linux windows } member? [
         ] [ unknown-image-extension? ] recover
     ] unit-test
 
-    ! Windows can't save .bmp-files for unknown reason. It can load
+    ! Windows 32 can't save .bmp-files for unknown reason. It can load
     ! them though.
     { t } [
-        open-png-image dup "bmp" convert-to =
+        64bit? [
+            open-png-image dup "bmp" convert-to =
+        ] when
     ] unit-test
 
     { t } [