summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-11-16 03:00:01 +0100
committerAndy Wingo <wingo@pobox.com>2010-11-16 03:00:01 +0100
commiteeb48bc27e27976acec41dc0e59e7aaab2b886cd (patch)
tree2450f16ea8cb1bc3509bf2091c4a48992ad408af
parent2090f909b4675286b0de11936771a77a515d885e (diff)
downloadguile-eeb48bc27e27976acec41dc0e59e7aaab2b886cd.tar.gz
fix the C syntax-error pretty-printer
* libguile/throw.c (handler_message): Fix up a bit.
-rw-r--r--libguile/throw.c6
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)
{