mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

fix the C syntax-error pretty-printer

Browse source 
* libguile/throw.c (handler_message): Fix up a bit.
This commit is contained in:
Andy Wingo 2010-11-16 03:00:01 +01:00
parent 2090f909b4
commit eeb48bc27e
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/throw.c
View file

@ -364,9 +364,9 @@ handler_message (void *handler_data, SCM tag, SCM args)
scm_display (file, p); scm_display (file, p);
else else
scm_puts ("unknown file", p); scm_puts ("unknown file", p);
scm_puts (": ", p); scm_puts (":", p);
scm_display (line, p); scm_display (line, p);
scm_puts (": ", p); scm_puts (":", p);
scm_display (col, p); scm_display (col, p);
scm_puts (": ", p); scm_puts (": ", p);
} }
@ -393,6 +393,8 @@ handler_message (void *handler_data, SCM tag, SCM args)
scm_puts (" in form ", p); scm_puts (" in form ", p);
scm_write (form, p); scm_write (form, p);
} }
scm_newline (p);
} }
else if (scm_ilength (args) == 4) else if (scm_ilength (args) == 4)
{ {