mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

* backtrace.c (display_backtrace_file): correct a couple of

Browse source 
instances of "file == SCM_BOOL_F" to "SCM_FALSEP (file)"
(shouldn't be comparing values directly).
This commit is contained in:
Rob Browning 2003-04-12 18:41:30 +00:00
parent ad2b971d55
commit 084210bf9a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/backtrace.c
View file

@ -466,8 +466,8 @@ display_backtrace_file (frame, last_file, port, pstate)
*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);