From fef602b1857ab649d882461e76522388cefb24a9 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 8 Feb 2009 13:58:39 -0600
Subject: [PATCH] remove superfluous flush from io tests

---
 core/io/io-tests.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/core/io/io-tests.factor b/core/io/io-tests.factor
index 8bfc52432d..d227ebeadf 100644
--- a/core/io/io-tests.factor
+++ b/core/io/io-tests.factor
@@ -16,7 +16,7 @@ IN: io.tests
     "seek-test1" unique-file binary
     [
         [
-            B{ 1 2 3 4 5 } write flush 0 seek-absolute seek-output
+            B{ 1 2 3 4 5 } write 0 seek-absolute seek-output
             B{ 3 } write
         ] with-file-writer
     ] [
@@ -29,7 +29,7 @@ IN: io.tests
     "seek-test2" unique-file binary
     [
         [
-            B{ 1 2 3 4 5 } write flush -1 seek-relative seek-output
+            B{ 1 2 3 4 5 } write -1 seek-relative seek-output
             B{ 3 } write
         ] with-file-writer
     ] [
@@ -42,7 +42,7 @@ IN: io.tests
     "seek-test3" unique-file binary
     [
         [
-            B{ 1 2 3 4 5 } write flush 1 seek-relative seek-output
+            B{ 1 2 3 4 5 } write 1 seek-relative seek-output
             B{ 3 } write
         ] with-file-writer
     ] [