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

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2001-01-25 Dirk Herrmann <D.Herrmann@tu-bs.de>
* srcprop.c (scm_set_source_property_x): Fix to handle
(set-source-property! <obj> 'copy <datum>) correctly.
2001-01-24 Gary Houston <ghouston@arglist.com> 2001-01-24 Gary Houston <ghouston@arglist.com>
* filesys.c (scm_link): docstring fix. * filesys.c (scm_link): docstring fix.

2
libguile/srcprop.c
View file

@ -306,7 +306,7 @@ SCM_DEFINE (scm_set_source_property_x, "set-source-property!", 3, 0, 0,
else else
SCM_WHASHSET (scm_source_whash, h, scm_make_srcprops (0, 0, datum, SCM_UNDEFINED, p)); 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)) if (SRCPROPSP (p))
SRCPROPCOPY (p) = datum; SRCPROPCOPY (p) = datum;