diff options
author | Andy Wingo <wingo@pobox.com> | 2011-10-25 17:45:29 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-10-25 17:45:29 +0200 |
commit | 25d50a051d8de9c438d6ed910bec13be682b3b12 (patch) | |
tree | 442f495241a9da699421562f190c6b37617bfcc5 /libguile/goops.c | |
parent | f80d15c59e962d197c0cb8e98fd84bdd27bc449e (diff) | |
download | guile-25d50a051d8de9c438d6ed910bec13be682b3b12.tar.gz |
most uses of scm_from_locale_symbol become scm_from_utf8_symbol
* libguile/array-handle.c:
* libguile/chars.c:
* libguile/expand.c:
* libguile/feature.c:
* libguile/goops.c:
* libguile/gsubr.c:
* libguile/instructions.c:
* libguile/load.c:
* libguile/macros.c:
* libguile/memoize.c:
* libguile/modules.c:
* libguile/options.c:
* libguile/print.c:
* libguile/smob.c:
* libguile/snarf.h: Change most uses of scm_from_locale_symbol to
scm_from_utf8_symbol, as the symbols really are not locale-dependent.
Diffstat (limited to 'libguile/goops.c')
-rw-r--r-- | libguile/goops.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/goops.c b/libguile/goops.c index 4b09f3311..cefc03bb5 100644 --- a/libguile/goops.c +++ b/libguile/goops.c @@ -2308,7 +2308,7 @@ fix_cpl (SCM c, SCM before, SCM after) static void make_stdcls (SCM *var, char *name, SCM meta, SCM super, SCM slots) { - SCM tmp = scm_from_locale_symbol (name); + SCM tmp = scm_from_utf8_symbol (name); *var = scm_basic_make_class (meta, tmp, scm_is_pair (super) ? super : scm_list_1 (super), @@ -2514,7 +2514,7 @@ make_class_from_template (char const *template, char const *type_name, SCM super { char buffer[100]; sprintf (buffer, template, type_name); - name = scm_from_locale_symbol (buffer); + name = scm_from_utf8_symbol (buffer); } else name = SCM_GOOPS_UNBOUND; |