fix printing problem with flvectors

This commit is contained in:
Matthew Flatt 2012-12-05 05:56:44 -06:00
parent 7a85072cf4
commit 64f0273829
2 changed files with 2 additions and 3 deletions

View File

@ -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))

View File

@ -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"