mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +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

5
libguile/ChangeLog
View file

@ -1,5 +1,10 @@
2002-03-08 Neil Jerram <neil@ossau.uklinux.net> 2002-03-08 Neil Jerram <neil@ossau.uklinux.net>
* srcprop.c (scm_set_source_property_x): If SRCPROPS obj already
exists when adding a source property other than those that are
handled explicitly, add the new property to the SRCPROPS obj's
plist.
* debug.h (SCM_MAX_FRAME_SIZE): Remove incorrect comment about use * debug.h (SCM_MAX_FRAME_SIZE): Remove incorrect comment about use
of SCM_MAX_FRAME_SIZE as a bit mask; it isn't used like this. of SCM_MAX_FRAME_SIZE as a bit mask; it isn't used like this.

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)); SCM_WHASHSET (scm_source_whash, h, scm_make_srcprops (0, 0, SCM_UNDEFINED, datum, p));
} }
else 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; return SCM_UNSPECIFIED;
} }
#undef FUNC_NAME #undef FUNC_NAME