diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 17:41:37 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 17:41:37 +0000 |
commit | d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b (patch) | |
tree | df14a633c6d8ac08ba098651a9164a0c991d8288 /libguile/backtrace.c | |
parent | a61f4e0c61695e17984b25b16fbf720b851b739c (diff) | |
download | guile-d2e53ed6f84df8c79f4bf5cf41d4f6d381bc065b.tar.gz |
*** empty log message ***
Diffstat (limited to 'libguile/backtrace.c')
-rw-r--r-- | libguile/backtrace.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/backtrace.c b/libguile/backtrace.c index 09430f5cc..f4af252b7 100644 --- a/libguile/backtrace.c +++ b/libguile/backtrace.c @@ -381,7 +381,7 @@ display_frame_expr (char *hdr, SCM exp, char *tlr, int indentation, SCM sport, S { pstate->length = print_params[i].length; ptob->seek (sport, 0, SEEK_SET); - if (SCM_CONSP (exp)) + if (scm_is_pair (exp)) { pstate->level = print_params[i].level - 1; scm_iprlist (hdr, exp, tlr[0], sport, pstate); @@ -607,14 +607,14 @@ display_frame (SCM frame, int nfield, int indentation, SCM sport, SCM port, scm_ /* Display a special form. */ { SCM source = SCM_FRAME_SOURCE (frame); - SCM copy = (SCM_CONSP (source) + SCM copy = (scm_is_pair (source) ? scm_source_property (source, scm_sym_copy) : SCM_BOOL_F); SCM umcopy = (SCM_MEMOIZEDP (source) ? scm_i_unmemoize_expr (source) : SCM_BOOL_F); display_frame_expr ("(", - SCM_CONSP (copy) ? copy : umcopy, + scm_is_pair (copy) ? copy : umcopy, ")", nfield + 1 + indentation, sport, |