From 8d3dec2034a9652dc846b0bed91c6ea63c1d9632 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 1 Oct 2019 00:21:10 -0500
Subject: [PATCH] windows.uniscribe: Fix bootstrap.

---
 basis/windows/uniscribe/uniscribe.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/windows/uniscribe/uniscribe.factor b/basis/windows/uniscribe/uniscribe.factor
index 0829c39ed8..0ba00801ad 100644
--- a/basis/windows/uniscribe/uniscribe.factor
+++ b/basis/windows/uniscribe/uniscribe.factor
@@ -71,8 +71,8 @@ PRIVATE>
         ! Draw white text on black background. The resulting grayscale
         ! image will be used as transparency mask for the actual color.
         drop
-        [ COLOR: black color>RGB SetBkColor drop ]
-        [ COLOR: white color>RGB SetTextColor drop ] bi
+        [ color: black color>RGB SetBkColor drop ]
+        [ color: white color>RGB SetTextColor drop ] bi
     ] if ;
 
 : selection-start/end ( script-string -- iMinSel iMaxSel )
@@ -86,7 +86,7 @@ PRIVATE>
     ]
     [ [ { 0 0 } ] dip <RECT> ]
     [
-        [let :> str str selection-start/end
+        let[ :> str str selection-start/end
          [
              str string>> dup selection? [ string>> ] when
              swap >utf16-index