summaryrefslogtreecommitdiffstats
path: root/buf.c
diff options
context:
space:
mode:
Diffstat (limited to 'buf.c')
-rw-r--r--buf.c7
1 files changed, 6 insertions, 1 deletions
diff --git a/buf.c b/buf.c
index 3e1ed76a..efd2e4a6 100644
--- a/buf.c
+++ b/buf.c
@@ -622,6 +622,7 @@ val buf_print(val buf, val stream_in)
val save_mode = test_set_indent_mode(stream, num_fast(indent_off),
num_fast(indent_data));
val save_indent;
+ int fb = 0;
put_string(lit("#b'"), stream);
@@ -630,12 +631,16 @@ val buf_print(val buf, val stream_in)
while (len-- > 0) {
format(stream, lit("~,02x"), num_fast(*data++), nao);
if ((++count & 7) == 0 && len)
- width_check(stream, chr(' '));
+ if (width_check(stream, chr(' ')))
+ fb = 1;
}
set_indent(stream, save_indent);
set_indent_mode(stream, save_mode);
+ if (fb)
+ force_break(stream);
+
return put_char(chr('\''), stream);
}