summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/unif.c')
-rw-r--r--libguile/unif.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/unif.c b/libguile/unif.c
index 44cb0c2c8..45b792015 100644
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -183,7 +183,7 @@ scm_make_uve (long k, SCM prot)
{
char s;
- s = SCM_CHARS (prot)[0];
+ s = SCM_SYMBOL_CHARS (prot)[0];
if (s == 's')
{
i = sizeof (short) * k;
@@ -306,12 +306,12 @@ SCM_DEFINE (scm_array_p, "array?", 1, 1, 0,
case scm_tc7_svect:
protp = SCM_SYMBOLP (prot)
&& (1 == SCM_LENGTH (prot))
- && ('s' == SCM_CHARS (prot)[0]);
+ && ('s' == SCM_SYMBOL_CHARS (prot)[0]);
#ifdef HAVE_LONG_LONGS
case scm_tc7_llvect:
protp = SCM_SYMBOLP (prot)
&& (1 == SCM_LENGTH (prot))
- && ('s' == SCM_CHARS (prot)[0]);
+ && ('s' == SCM_SYMBOL_CHARS (prot)[0]);
#endif
case scm_tc7_fvect:
protp = singp (prot);