Get file redirection working in Unix io.launcher

extra/io/launcher/launcher.factor

@@ -67,7 +67,7 @@ GENERIC: >descriptor ( obj -- desc )
 
 M: string >descriptor +command+ associate ;
 M: sequence >descriptor +arguments+ associate ;
-M: assoc >descriptor ;
+M: assoc >descriptor >hashtable ;
 
 HOOK: run-process* io-backend ( desc -- handle )
 

extra/io/unix/launcher/launcher.factor

@@ -1,9 +1,10 @@
 ! Copyright (C) 2007, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: io io.backend io.launcher io.unix.backend io.nonblocking
-sequences kernel namespaces math system alien.c-types debugger
-continuations arrays assocs combinators unix.process
-parser-combinators memoize promises strings threads ;
+USING: io io.backend io.launcher io.unix.backend io.unix.files
+io.nonblocking sequences kernel namespaces math system
+ alien.c-types debugger continuations arrays assocs 
+combinators unix.process parser-combinators memoize 
+promises strings threads ;
 IN: io.unix.launcher
 
 ! Search unix first
@@ -42,21 +43,21 @@ MEMO: 'arguments' ( -- parser )
 : assoc>env ( assoc -- env )
     [ "=" swap 3append ] { } assoc>map ;
 
-: (redirect)
+: (redirect) ( path mode fd -- )
     >r file-mode open dup io-error dup
-    r> dup2 io-error close drop ;
+    r> dup2 io-error close ;
 
 : redirect ( obj mode fd -- )
     {
         { [ pick not ] [ 3drop ] }
-        { [ pick +closed+ eq? ] [ close 3drop ] }
-        { [ t ] [ (redirect) ] }
+        { [ pick +closed+ eq? ] [ close 2drop ] }
+        { [ pick string? ] [ (redirect) ] }
     } cond ;
 
 : setup-redirection ( -- )
     +stdin+ get read-flags 0 redirect
     +stdout+ get write-flags 1 redirect
-    +stderr+ get read-flags 2 redirect ;
+    +stderr+ get write-flags 2 redirect ;
 
 : spawn-process ( -- )
     [