From 534d70205f4966de3e7cb69c3d354ffbd44b6f48 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 12 Feb 2020 14:33:30 -0800
Subject: [PATCH] io.files.trash.windows: using flags{ }.

---
 extra/io/files/trash/windows/windows.factor | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/extra/io/files/trash/windows/windows.factor b/extra/io/files/trash/windows/windows.factor
index 0ad9e10859..4cecf5fa89 100644
--- a/extra/io/files/trash/windows/windows.factor
+++ b/extra/io/files/trash/windows/windows.factor
@@ -3,7 +3,7 @@
 
 USING: accessors alien.c-types alien.data alien.strings
 alien.syntax classes.struct destructors io.files.trash kernel
-libc math sequences system windows.types ;
+libc literals math sequences system windows.types ;
 
 IN: io.files.trash.windows
 
@@ -59,10 +59,12 @@ M: windows send-to-trash ( path -- )
             FO_DELETE >>wFunc
             swap >>pFrom
             f >>pTo
-            FOF_ALLOWUNDO
-            FOF_NOCONFIRMATION bitor
-            FOF_NOERRORUI bitor
-            FOF_SILENT bitor >>fFlags
+            flags{
+                FOF_ALLOWUNDO
+                FOF_NOCONFIRMATION
+                FOF_NOERRORUI
+                FOF_SILENT
+            } >>fFlags
 
         SHFileOperationW [ throw ] unless-zero