run-desc uses default stream

db4
Sam Anklesaria 2009-05-09 08:01:39 -05:00
parent 7c921cd073
commit 06f0b0b98f
1 changed files with 1 additions and 1 deletions

View File

@ -266,4 +266,4 @@ M: object run-pipeline-element
[ ] [ ]
} cond } 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 ;