Fix Windows bootstrap

diff --git a/basis/io/windows/files/files.factor b/basis/io/windows/files/files.factor
index e25be71872e215e278d6c521b0c8badf926adb8e..1377f82ced4554c749ef6336d149474f943f0832 100755 (executable)
--- a/basis/io/windows/files/files.factor
+++ b/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 )
     [

diff --git a/basis/io/windows/launcher/launcher.factor b/basis/io/windows/launcher/launcher.factor
index 1cfb91d716a64d8199e5ce9ec5f2d60c9e4a9df4..9442fa9a72b27de5a573bbe8d6b9dcb9f1eceb94 100755 (executable)
--- a/basis/io/windows/launcher/launcher.factor
+++ b/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

diff --git a/extra/classes/tuple/lib/lib.factor b/extra/classes/tuple/lib/lib.factor
index fbc3afe76c5c621bf2bae5880529f35a8517e318..509843b9cdeeec60f2015fee4a7121d2c4541743 100755 (executable)
--- a/extra/classes/tuple/lib/lib.factor
+++ b/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 ;