summaryrefslogtreecommitdiff
path: root/libguile/backtrace.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-07-27 15:41:49 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-07-27 15:41:49 +0000
commitbc36d0502b9b2ac7e43ded2e1fbeed2f1499bb1d (patch)
treedafd9e49525c8b5e1ccee4f39b5b720522a93dc3 /libguile/backtrace.c
parentc82f8ed66ca55da796cb6289f380aaed2e5e34bb (diff)
downloadguile-bc36d0502b9b2ac7e43ded2e1fbeed2f1499bb1d.tar.gz
* tags.h, deprecated.h (SCM_EQ_P): Deprecated by moving it into
deprecated.h. Replaced all uses with scm_is_eq.
Diffstat (limited to 'libguile/backtrace.c')
-rw-r--r--libguile/backtrace.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/backtrace.c b/libguile/backtrace.c
index 591108d14..3f6efac2f 100644
--- a/libguile/backtrace.c
+++ b/libguile/backtrace.c
@@ -228,7 +228,7 @@ display_error_body (struct display_error_args *a)
if (!SCM_MEMOIZEDP (source) && scm_is_true (prev_frame))
source = SCM_FRAME_SOURCE (prev_frame);
if (!SCM_SYMBOLP (pname) && !SCM_STRINGP (pname) && SCM_FRAME_PROC_P (current_frame)
- && SCM_EQ_P (scm_procedure_p (SCM_FRAME_PROC (current_frame)), SCM_BOOL_T))
+ && scm_is_true (scm_procedure_p (SCM_FRAME_PROC (current_frame))))
pname = scm_procedure_name (SCM_FRAME_PROC (current_frame));
}
if (SCM_SYMBOLP (pname) || SCM_STRINGP (pname) || SCM_MEMOIZEDP (source))
@@ -490,7 +490,7 @@ display_backtrace_file (frame, last_file, port, pstate)
display_backtrace_get_file_line (frame, &file, &line);
- if (SCM_EQ_P (file, *last_file))
+ if (scm_is_eq (file, *last_file))
return;
*last_file = file;
@@ -517,7 +517,7 @@ display_backtrace_file_and_line (SCM frame, SCM port, scm_print_state *pstate)
display_backtrace_get_file_line (frame, &file, &line);
- if (SCM_EQ_P (SCM_PACK (SCM_SHOW_FILE_NAME), sym_base))
+ if (scm_is_eq (SCM_PACK (SCM_SHOW_FILE_NAME), sym_base))
{
if (scm_is_false (file))
{
@@ -718,7 +718,7 @@ display_backtrace_body (struct display_backtrace_args *a)
last_file = SCM_UNDEFINED;
for (i = 0; i < n; ++i)
{
- if (!SCM_EQ_P (SCM_PACK (SCM_SHOW_FILE_NAME), sym_base))
+ if (!scm_is_eq (SCM_PACK (SCM_SHOW_FILE_NAME), sym_base))
display_backtrace_file (frame, &last_file, a->port, pstate);
display_frame (frame, nfield, indentation, sport, a->port, pstate);