diff options
Diffstat (limited to 'libguile/discouraged.c')
-rw-r--r-- | libguile/discouraged.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/discouraged.c b/libguile/discouraged.c index 357cac875..262142890 100644 --- a/libguile/discouraged.c +++ b/libguile/discouraged.c @@ -265,7 +265,7 @@ SCM_DEFINE (scm_make_keyword_from_dash_symbol, "make-keyword-from-dash-symbol", SCM dash_string, non_dash_symbol; SCM_ASSERT (scm_is_symbol (symbol) - && ('-' == scm_i_symbol_chars(symbol)[0]), + && (scm_i_symbol_ref (symbol, 0) == '-'), symbol, SCM_ARG1, FUNC_NAME); dash_string = scm_symbol_to_string (symbol); |