io.launcher: Fix bug -- if dispose fails, still call dispose on the other

resource.
2013-05-19 10:22:07 -07:00 · 2013-05-19 10:22:07 -07:00 · 1136ed9c19
parent 7c1caacc35
commit 1136ed9c19
1 changed files with 1 additions and 1 deletions
--- a/basis/io/launcher/launcher.factor
+++ b/basis/io/launcher/launcher.factor
@ -179,7 +179,7 @@ M: process cancel-operation kill-process ;

 M: object run-pipeline-element
    [ >process swap >>stdout swap >>stdin run-detached ]
-    [ drop [ [ dispose ] when* ] bi@ ]
+    [ [ drop [ [ &dispose drop ] when* ] bi@ ] with-destructors ]
    3bi
    wait-for-process ;