mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

* Fix handling of (set-source-property! <obj> 'copy <datum>).

Browse source
This commit is contained in:
Dirk Herrmann 2001-01-25 11:09:21 +00:00
parent fd937ecb02
commit 0419a52877
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/srcprop.c
View file

@ -306,7 +306,7 @@ SCM_DEFINE (scm_set_source_property_x, "set-source-property!", 3, 0, 0,
else
SCM_WHASHSET (scm_source_whash, h, scm_make_srcprops (0, 0, datum, SCM_UNDEFINED, p));
}
else if (SCM_EQ_P (scm_sym_filename, key))
else if (SCM_EQ_P (scm_sym_copy, key))
{
if (SRCPROPSP (p))
SRCPROPCOPY (p) = datum;