mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* Make sure that symbol properties initially form an empty list.

Browse source
This commit is contained in:
Dirk Herrmann 2000-09-20 09:27:06 +00:00
parent 5a2a5407e8
commit 0f8c9efa58
2 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/ChangeLog
View file

@ -1,3 +1,10 @@
2000-09-20 Dirk Herrmann <D.Herrmann@tu-bs.de>
* symbols.c (scm_intern_obarray_soft,
scm_sysintern0_no_module_lookup): Make sure that symbol
properties initially form an empty list. Thanks to Keisuke
Nishida for pointing this out.
2000-09-19 Dirk Herrmann <D.Herrmann@tu-bs.de>
* throw.c (scm_handle_by_message): Added a FIXME comment.

5
libguile/symbols.c
View file

@ -293,10 +293,9 @@ scm_intern_obarray_soft (const char *name,scm_sizet len,SCM obarray,unsigned int
SCM_NEWCELL2 (lsym);
SCM_SETCHARS (lsym, duplicate_string (name, len));
SCM_SET_SYMBOL_HASH (lsym, raw_hash);
SCM_SET_PROP_SLOTS (lsym, scm_cons (SCM_BOOL_F, SCM_BOOL_F));
SCM_SET_PROP_SLOTS (lsym, scm_cons (SCM_BOOL_F, SCM_EOL));
SCM_SETLENGTH (lsym, (long) len, scm_tc7_symbol);
SCM_SET_SYMBOL_PROPS (lsym, SCM_EOL);
if (SCM_FALSEP (obarray))
{
SCM answer;
@ -369,7 +368,7 @@ scm_sysintern0_no_module_lookup (const char *name)
SCM_NEWCELL2 (lsym);
SCM_SETCHARS (lsym, name);
SCM_SET_SYMBOL_HASH (lsym, raw_hash);
SCM_SET_PROP_SLOTS (lsym, scm_cons (SCM_BOOL_F, SCM_BOOL_F));
SCM_SET_PROP_SLOTS (lsym, scm_cons (SCM_BOOL_F, SCM_EOL));
SCM_SETLENGTH (lsym, (long) len, scm_tc7_symbol);
lsym = scm_cons (lsym, SCM_UNDEFINED);