guile/guile-core/libguile ChangeLog srcprop.c

[Dirk Herrmann]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Dirk Herrmann <address@hidden>  01/01/25 03:09:21

Modified files:
        guile-core/libguile: ChangeLog srcprop.c 

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

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ChangeLog.diff?r1=1.1246&r2=1.1247
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/srcprop.c.diff?r1=1.41&r2=1.42

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1246 
guile/guile-core/libguile/ChangeLog:1.1247
--- guile/guile-core/libguile/ChangeLog:1.1246  Wed Jan 24 13:45:09 2001
+++ guile/guile-core/libguile/ChangeLog Thu Jan 25 03:09:21 2001
@@ -1,3 +1,8 @@
+2001-01-25  Dirk Herrmann  <address@hidden>
+
+       * srcprop.c (scm_set_source_property_x):  Fix to handle
+       (set-source-property! <obj> 'copy <datum>) correctly.
+
 2001-01-24  Gary Houston  <address@hidden>
 
        * filesys.c (scm_link): docstring fix.
Index: guile/guile-core/libguile/srcprop.c
diff -u guile/guile-core/libguile/srcprop.c:1.41 
guile/guile-core/libguile/srcprop.c:1.42
--- guile/guile-core/libguile/srcprop.c:1.41    Mon Dec 11 06:48:23 2000
+++ guile/guile-core/libguile/srcprop.c Thu Jan 25 03:09:21 2001
@@ -306,7 +306,7 @@
       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;