run-desc uses default stream

2009-05-09 08:01:39 -05:00 · 2009-05-09 08:01:39 -05:00 · 06f0b0b98f
parent 7c921cd073
commit 06f0b0b98f
1 changed files with 1 additions and 1 deletions
--- a/basis/io/launcher/launcher.factor
+++ b/basis/io/launcher/launcher.factor
@ -266,4 +266,4 @@ M: object run-pipeline-element
    [ ]
 } cond

-: run-desc ( desc -- result ) utf8 <process-reader> stream-contents but-last ;
+: run-desc ( desc -- result ) utf8 [ contents [ but-last ] [ f ] if* ] with-process-reader ;