diff options
author | Andy Wingo <wingo@pobox.com> | 2010-11-16 03:00:01 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-11-16 03:00:01 +0100 |
commit | eeb48bc27e27976acec41dc0e59e7aaab2b886cd (patch) | |
tree | 2450f16ea8cb1bc3509bf2091c4a48992ad408af /libguile/throw.c | |
parent | 2090f909b4675286b0de11936771a77a515d885e (diff) | |
download | guile-eeb48bc27e27976acec41dc0e59e7aaab2b886cd.tar.gz |
fix the C syntax-error pretty-printer
* libguile/throw.c (handler_message): Fix up a bit.
Diffstat (limited to 'libguile/throw.c')
-rw-r--r-- | libguile/throw.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/libguile/throw.c b/libguile/throw.c index 623407749..a0cb106cc 100644 --- a/libguile/throw.c +++ b/libguile/throw.c @@ -364,9 +364,9 @@ handler_message (void *handler_data, SCM tag, SCM args) scm_display (file, p); else scm_puts ("unknown file", p); - scm_puts (": ", p); + scm_puts (":", p); scm_display (line, p); - scm_puts (": ", p); + scm_puts (":", p); scm_display (col, p); scm_puts (": ", p); } @@ -393,6 +393,8 @@ handler_message (void *handler_data, SCM tag, SCM args) scm_puts (" in form ", p); scm_write (form, p); } + + scm_newline (p); } else if (scm_ilength (args) == 4) { |