(scm_simple_format): Print missing part of format before ~% control.

Thanks to Daniel Skarda!

diff --git a/libguile/print.c b/libguile/print.c
index cb80e07..fd86940 100644 (file)
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -969,6 +969,7 @@ SCM_DEFINE (scm_simple_format, "simple-format", 2, 0, 1,
            start = p + 1;
            continue;
          case '%':
+           scm_lfwrite (start, p - start - 1, destination);
            scm_newline (destination);
            start = p + 1;
            continue;