From f7e4774d3f591b8b3f548cdd44cf0df1978f7f10 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 2 Aug 2019 18:29:19 -0500
Subject: [PATCH] ui.backend.windows: 2sequence cleanup

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

diff --git a/basis/ui/backend/windows/windows.factor b/basis/ui/backend/windows/windows.factor
index ff60eea97b..7ab3297a63 100644
--- a/basis/ui/backend/windows/windows.factor
+++ b/basis/ui/backend/windows/windows.factor
@@ -361,7 +361,7 @@ SYMBOL: upper-surrogate-wm-char
                 { [ dup under-surrogate? ] [
                       drop
                       upper-surrogate-wm-char get-global [
-                          1string wParam 1string 2array "" join
+                          wParam "" 2sequence
                           utf16n encode utf16n decode hWnd window user-input
                       ] when* ]
                 }