From 3dc5ecf16f501daa76fd37cf9e2b8e801cffcf87 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Fri, 23 Nov 2012 16:52:00 +0900
Subject: [PATCH] Fixing typo in flush-output-port on textual port test case.

---
 tests/r7rs-tests.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/r7rs-tests.scm b/tests/r7rs-tests.scm
index 462f8a79..ab5a7266 100644
--- a/tests/r7rs-tests.scm
+++ b/tests/r7rs-tests.scm
@@ -1510,7 +1510,7 @@
       (get-output-string out)))
 
 (test ""
-  (let ((out (open-output-bytevector)))
+  (let ((out (open-output-string)))
     (flush-output-port out)
     (get-output-string out)))