diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-07-27 15:41:49 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-07-27 15:41:49 +0000 |
commit | bc36d0502b9b2ac7e43ded2e1fbeed2f1499bb1d (patch) | |
tree | dafd9e49525c8b5e1ccee4f39b5b720522a93dc3 /libguile/backtrace.c | |
parent | c82f8ed66ca55da796cb6289f380aaed2e5e34bb (diff) | |
download | guile-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.c | 8 |
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); |