Merge branch 'master' into new_optimizer

db4
Slava Pestov 2008-08-15 16:13:29 -05:00
commit 9c67591c7d
1 changed files with 7 additions and 5 deletions

View File

@ -4,7 +4,7 @@ USING: math kernel io sequences io.buffers io.timeouts generic
byte-vectors system io.encodings math.order io.backend byte-vectors system io.encodings math.order io.backend
continuations debugger classes byte-arrays namespaces splitting continuations debugger classes byte-arrays namespaces splitting
grouping dlists assocs io.encodings.binary summary accessors grouping dlists assocs io.encodings.binary summary accessors
destructors ; destructors combinators ;
IN: io.ports IN: io.ports
SYMBOL: default-buffer-size SYMBOL: default-buffer-size
@ -133,10 +133,12 @@ M: output-port stream-flush ( port -- )
M: output-port dispose* M: output-port dispose*
[ [
[ handle>> &dispose drop ] {
[ port-flush ] [ handle>> &dispose drop ]
[ handle>> shutdown ] [ port-flush ]
tri [ handle>> shutdown ]
[ buffer>> dispose ]
} cleave
] with-destructors ; ] with-destructors ;
M: buffered-port dispose* M: buffered-port dispose*