Permalink
Browse files

Make sure err and out are realized before returning.

  • Loading branch information...
1 parent f48885a commit a5ab9c0ec8fd660578c3359a0f97e9ef97bb2b65 @Raynes committed Oct 1, 2012
Showing with 7 additions and 5 deletions.
  1. +7 −5 src/conch/sh.clj
View
@@ -157,14 +157,16 @@
(conch/exit-code proc)))]
(when in (future (get-drunk in proc)))
(let [proc-out (future (redirect out options :out proc))
- proc-err (future (redirect err options :err proc))]
+ proc-err (future (redirect err options :err proc))
+ proc-out @proc-out
+ proc-err @proc-err]
(cond
verbose {:proc proc
:exit-code @exit-code
- :stdout @proc-out
- :stderr @proc-err}
- (= (:seq options) :err) @proc-err
- :else @proc-out))))
+ :stdout proc-out
+ :stderr proc-err}
+ (= (:seq options) :err) proc-err
+ :else proc-out))))
(defn execute [name & args]
(let [end (last args)

0 comments on commit a5ab9c0

Please sign in to comment.