ui.backend.windows: 2sequence cleanup

2019-08-02 18:29:19 -05:00 · 2019-08-02 18:29:19 -05:00 · f7e4774d3f
parent c70d1f6c4a
commit f7e4774d3f
1 changed files with 1 additions and 1 deletions
--- 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* ]
                }