Better fix

2008-08-15 18:57:00 -05:00 · 2008-08-15 18:57:00 -05:00 · a452dd86f6
parent 713cf91f2a
commit a452dd86f6
1 changed files with 1 additions and 1 deletions
--- a/basis/io/ports/ports.factor
+++ b/basis/io/ports/ports.factor
@ -135,9 +135,9 @@ M: output-port dispose*
    [
        {
            [ handle>> &dispose drop ]
+            [ buffer>> &dispose drop ]
            [ port-flush ]
            [ handle>> shutdown ]
-            [ buffer>> dispose ]
        } cleave
    ] with-destructors ;