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

…ther resource.
factor · May 19, 2013 · 1136ed9 · 1136ed9
1 parent 7c1caac
commit 1136ed9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 ;