diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-09-22 17:17:55 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-09-22 17:17:55 +0000 |
commit | 86c991c2a202c1d06caa5f01ec5d36a07a19bb96 (patch) | |
tree | de2cbc86a2935e2026ffa9deec7cbd564f0d688d /libguile/backtrace.c | |
parent | c1aef037101d36e33de853041e407593cf32a489 (diff) | |
download | guile-86c991c2a202c1d06caa5f01ec5d36a07a19bb96.tar.gz |
* Replaced SCM_CHARS with SCM_STRING_CHARS or SCM_SYMBOL_CHARS.
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 ae26dc01d..7a8ee3a47 100644 --- a/libguile/backtrace.c +++ b/libguile/backtrace.c @@ -333,16 +333,16 @@ display_frame_expr (char *hdr,SCM exp,char *tlr,int indentation,SCM sport,SCM po string = scm_strport_to_string (sport); /* Remove control characters */ for (i = 0; i < n; ++i) - if (iscntrl (SCM_CHARS (string)[i])) - SCM_CHARS (string)[i] = ' '; + if (iscntrl (SCM_STRING_CHARS (string)[i])) + SCM_STRING_CHARS (string)[i] = ' '; /* Truncate */ if (indentation + n > SCM_BACKTRACE_WIDTH) { n = SCM_BACKTRACE_WIDTH - indentation; - SCM_CHARS (string)[n - 1] = '$'; + SCM_STRING_CHARS (string)[n - 1] = '$'; } - scm_lfwrite (SCM_CHARS (string), n, port); + scm_lfwrite (SCM_STRING_CHARS (string), n, port); } static void |