From 64f02738299d57409b46d6e36454da58911475f7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 5 Dec 2012 05:56:44 -0600
Subject: [PATCH] fix printing problem with flvectors

---
 collects/tests/racket/print.rktl | 2 +-
 src/racket/src/print.c           | 3 +--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/collects/tests/racket/print.rktl b/collects/tests/racket/print.rktl
index 7cecefd732..a05436cd28 100644
--- a/collects/tests/racket/print.rktl
+++ b/collects/tests/racket/print.rktl
@@ -194,7 +194,7 @@
   (ptest "'`,#,#`,@#,@a" '`,#,#`,@#,@a)
 
   (ptest "(fxvector 1 10000 3)" (fxvector 1 10000 3))
-  (ptest "(flvector 1.1 10000.1 3.1)" (flvector 1.1 10000.1 3.1))
+  (ptest "(flvector 1.1 10000.1 3.1 0.0)" (flvector 1.1 10000.1 3.1 0.0))
 
   (void))
 
diff --git a/src/racket/src/print.c b/src/racket/src/print.c
index ff386212b8..28a6b9bcea 100644
--- a/src/racket/src/print.c
+++ b/src/racket/src/print.c
@@ -3808,8 +3808,7 @@ print_pair(Scheme_Object *pair, int notdisplay, int compact,
 #define F_VECTOR print_utf8_string(pp, "(flvector ", 0, 10)
 #define F_ print_utf8_string(pp, "#fl(", 0, 4)
 #define PRINT_ELM() do {\
-  scheme_double_to_string(elem, buffer, 100, 0, &used_buffer); \
-  print_utf8_string(pp, buffer, 0, -1); \
+  print_utf8_string(pp, scheme_double_to_string(elem, buffer, 100, 0, &used_buffer), 0, -1); \
 } while(0);
 #include "print_vector.inc"