mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* Fixed some typing bugs. Thanks to Rob Browning.

Browse source
This commit is contained in:
Dirk Herrmann 2001-09-13 21:22:37 +00:00
parent b00418df09
commit c3c4d80154
3 changed files with 15 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

1
THANKS
View file

@ -11,3 +11,4 @@ Contributors since the last release:
For fixes or providing information which led to a fix:
Martin Baulig
Rob Browning

7
libguile/ChangeLog
View file

@ -1,3 +1,10 @@
2001-09-13 Dirk Herrmann <D.Herrmann@tu-bs.de>
* backtrace.c (display_backtrace_file,
display_backtrace_file_and_line): Use SCM_EQ_P when comparing SCM
values, use SCM_FALSEP when comparing SCM values against #f.
Thanks to Rob Browning for the bug report.
2001-09-12 Martin Baulig <martin@home-of-linux.org>
* strings.[ch] (scm_str2string): New function.

14
libguile/backtrace.c
View file

@ -460,14 +460,14 @@ display_backtrace_file (frame, last_file, port, pstate)
display_backtrace_get_file_line (frame, &file, &line);
if (file == *last_file)
if (SCM_EQ_P (file, *last_file))
return;
*last_file = file;
scm_puts ("In ", port);
if (file == SCM_BOOL_F)
if (line == SCM_BOOL_F)
if (SCM_FALSEP (file))
if (SCM_FALSEP (line))
scm_puts ("unknown file", port);
else
scm_puts ("current input", port);
@ -489,9 +489,9 @@ display_backtrace_file_and_line (SCM frame, SCM port, scm_print_state *pstate)
if (SCM_EQ_P (SCM_SHOW_FILE_NAME, sym_base))
{
if (file == SCM_BOOL_F)
if (SCM_FALSEP (file))
{
if (line == SCM_BOOL_F)
if (SCM_FALSEP (line))
scm_putc ('?', port);
else
scm_puts ("<stdin>", port);
@ -506,7 +506,7 @@ display_backtrace_file_and_line (SCM frame, SCM port, scm_print_state *pstate)
scm_putc (':', port);
}
else if (line != SCM_BOOL_F)
else if (!SCM_FALSEP (line))
{
int i, j=0;
for (i = SCM_INUM (line)+1; i > 0; i = i/10, j++)
@ -514,7 +514,7 @@ display_backtrace_file_and_line (SCM frame, SCM port, scm_print_state *pstate)
indent (4-j, port);
}
if (line == SCM_BOOL_F)
if (SCM_FALSEP (line))
scm_puts (" ?", port);
else
scm_intprint (SCM_INUM (line) + 1, 10, port);