summaryrefslogtreecommitdiff
path: root/libguile/objects.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-02 10:36:31 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-11-02 10:36:31 +0000
commitb24b5e13bf0de4825fcd8b5b36f454ef1ddc3493 (patch)
tree0d6b82a4b681a98e5b09ce2e6beba80c4be8489e /libguile/objects.c
parent66460dfba3bbce33320df9d44652c47d545b4332 (diff)
downloadguile-b24b5e13bf0de4825fcd8b5b36f454ef1ddc3493.tar.gz
* Get rid of calls to SCM_ROSTRINGP.
* Fix some string/symbol output problems with regards to substrings. * Fix error output to prefer procedure name parameters over stack data. * Use SCM_(SET_)?FILENAME where appropriate. * Prefer calling scm_remember over scm_protect/unprotect_object calls.
Diffstat (limited to 'libguile/objects.c')
-rw-r--r--libguile/objects.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/objects.c b/libguile/objects.c
index 700662ba2..68836dea5 100644
--- a/libguile/objects.c
+++ b/libguile/objects.c
@@ -191,7 +191,7 @@ scm_class_of (SCM x)
{
SCM name = SCM_STRUCT_TABLE_NAME (SCM_CDR (handle));
SCM class = scm_make_extended_class (SCM_NFALSEP (name)
- ? SCM_ROCHARS (name)
+ ? SCM_SYMBOL_CHARS (name)
: 0);
SCM_SET_STRUCT_TABLE_CLASS (SCM_CDR (handle), class);
return class;