summaryrefslogtreecommitdiff
path: root/libguile/backtrace.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-09-22 17:17:55 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-09-22 17:17:55 +0000
commit86c991c2a202c1d06caa5f01ec5d36a07a19bb96 (patch)
treede2cbc86a2935e2026ffa9deec7cbd564f0d688d /libguile/backtrace.c
parentc1aef037101d36e33de853041e407593cf32a489 (diff)
downloadguile-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.c8
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