Fix Windows bootstrap

basis/io/windows/files/files.factor

@@ -123,7 +123,7 @@ SYMBOLS: +read-only+ +hidden+ +system+
 +not-content-indexed+ +encrypted+ ;
 
 : win32-file-attribute ( n attr symbol -- n )
-    >r dupd mask? [ r> , ] [ r> drop ] if ;
+    >r dupd mask? r> swap [ , ] [ drop ] if ;
 
 : win32-file-attributes ( n -- seq )
     [

basis/io/windows/launcher/launcher.factor

@@ -33,11 +33,9 @@ TUPLE: CreateProcess-args
     CreateProcess-args >tuple< CreateProcess win32-error=0/f ;
 
 : count-trailing-backslashes ( str n -- str n )
-    >r "\\" ?tail [
-        r> 1+ count-trailing-backslashes
-    ] [
-        r>
-    ] if ;
+    >r "\\" ?tail r> swap [
+        1+ count-trailing-backslashes
+    ] when ;
 
 : fix-trailing-backslashes ( str -- str' )
     0 count-trailing-backslashes

extra/classes/tuple/lib/lib.factor

@@ -1,10 +1,11 @@
 ! Copyright (C) 2007 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel macros sequences slots words classes.tuple ;
+USING: kernel macros sequences slots words classes.tuple
+quotations combinators ;
 IN: classes.tuple.lib
 
 : reader-slots ( seq -- quot )
-    [ slot-spec-reader ] map [ get-slots ] curry ;
+    [ slot-spec-reader 1quotation ] map [ cleave ] curry ;
 
 MACRO: >tuple< ( class -- )
     all-slots rest-slice reader-slots ;