mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

* objprop.c (s_scm_set_object_property_x): Use scm_assq instead of

Browse source 
scm_assoc.  (Thanks to Dirk Herrmann.)
This commit is contained in:
Mikael Djurfeldt 2000-03-14 17:24:48 +00:00
parent 7236512ecf
commit e869585c10
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/objprop.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996 Free Software Foundation, Inc. /* Copyright (C) 1995,1996, 2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by
@ -102,7 +102,7 @@ SCM_DEFINE (scm_set_object_property_x, "set-object-property!", 3, 0, 0,
SCM assoc; SCM assoc;
h = scm_hashq_create_handle_x (scm_object_whash, obj, SCM_EOL); h = scm_hashq_create_handle_x (scm_object_whash, obj, SCM_EOL);
SCM_DEFER_INTS; SCM_DEFER_INTS;
assoc = scm_assoc (key, SCM_CDR (h)); assoc = scm_assq (key, SCM_CDR (h));
if (SCM_NIMP (assoc)) if (SCM_NIMP (assoc))
SCM_SETCDR (assoc, val); SCM_SETCDR (assoc, val);
else else