io.pipes: If dispose on in>> throws, then out>> leaks.
parent
917ae3e410
commit
c64cb2c886
|
@ -9,7 +9,10 @@ IN: io.pipes
|
|||
TUPLE: pipe in out ;
|
||||
|
||||
M: pipe dispose ( pipe -- )
|
||||
[ in>> dispose ] [ out>> dispose ] bi ;
|
||||
[
|
||||
[ in>> &dispose drop ]
|
||||
[ out>> &dispose drop ] bi
|
||||
] with-destructors ;
|
||||
|
||||
HOOK: (pipe) io-backend ( -- pipe )
|
||||
|
||||
|
|
Loading…
Reference in New Issue