set-object-property!

[Keisuke Nishida]

Hello,

I guess set-object-property! should use scm_assq rather than scm_assoc.

Index: objprop.c
===================================================================
RCS file: /cvs/guile/guile/guile-core/libguile/objprop.c,v
retrieving revision 1.11
diff -u -r1.11 objprop.c
--- objprop.c   2000/01/18 11:24:03     1.11
+++ objprop.c   2000/03/04 02:05:04
@@ -102,7 +102,7 @@
   SCM assoc;
   h = scm_hashq_create_handle_x (scm_object_whash, obj, SCM_EOL);
   SCM_DEFER_INTS;
-  assoc = scm_assoc (key, SCM_CDR (h));
+  assoc = scm_assq (key, SCM_CDR (h));
   if (SCM_NIMP (assoc))
     SCM_SETCDR (assoc, val);
   else


Thanks,
Keisuke Nishida