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

* srcprop.c (scm_set_source_property_x): If SRCPROPS obj already

Browse source 
exists when adding a source property other than those that are
	handled explicitly, add the new property to the SRCPROPS obj's
	plist.
This commit is contained in:
Neil Jerram 2002-03-08 13:11:34 +00:00
parent 020c890ccc
commit 58d233cca9
2 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/srcprop.c
View file

@ -317,7 +317,12 @@ SCM_DEFINE (scm_set_source_property_x, "set-source-property!", 3, 0, 0,
SCM_WHASHSET (scm_source_whash, h, scm_make_srcprops (0, 0, SCM_UNDEFINED, datum, p));
}
else
SCM_WHASHSET (scm_source_whash, h, scm_acons (key, datum, p));
{
if (SRCPROPSP (p))
SRCPROPPLIST (p) = scm_acons (key, datum, SRCPROPPLIST (p));
else
SCM_WHASHSET (scm_source_whash, h, scm_acons (key, datum, p));
}
return SCM_UNSPECIFIED;
}
#undef FUNC_NAME