mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

* Get rid of calls to SCM_ROSTRINGP.

Browse source 
* 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.
This commit is contained in:
Dirk Herrmann 2000-11-02 10:36:31 +00:00
parent 66460dfba3
commit b24b5e13bf
12 changed files with 55 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/objects.c
View file

@ -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;