mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 15:00:21 +02:00
Code Activity

* goops.c (TEST_CHANGE_CLASS, scm_sys_initialize_object): Don't

Browse source 
compare SCM values with !=.
This commit is contained in:
Dirk Herrmann 2003-04-20 23:38:18 +00:00
parent 5cb22e9606
commit 0c88d7dfae
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2003-04-21 Dirk Herrmann <D.Herrmann@tu-bs.de>
* goops.c (TEST_CHANGE_CLASS, scm_sys_initialize_object): Don't
compare SCM values with !=.
2003-04-20 Dirk Herrmann <D.Herrmann@tu-bs.de> 2003-04-20 Dirk Herrmann <D.Herrmann@tu-bs.de>
* eval.c, eval.h, evalext.c, evalext.h (scm_sym_setter, * eval.c, eval.h, evalext.c, evalext.h (scm_sym_setter,

4
libguile/goops.c
View file

@ -94,7 +94,7 @@
#define TEST_CHANGE_CLASS(obj, class) \ #define TEST_CHANGE_CLASS(obj, class) \
{ \ { \
class = SCM_CLASS_OF (obj); \ class = SCM_CLASS_OF (obj); \
if (SCM_OBJ_CLASS_REDEF (obj) != SCM_BOOL_F) \ if (!SCM_FALSEP (SCM_OBJ_CLASS_REDEF (obj))) \
{ \ { \
scm_change_object_class (obj, class, SCM_OBJ_CLASS_REDEF (obj));\ scm_change_object_class (obj, class, SCM_OBJ_CLASS_REDEF (obj));\
class = SCM_CLASS_OF (obj); \ class = SCM_CLASS_OF (obj); \
@ -426,7 +426,7 @@ SCM_DEFINE (scm_sys_initialize_object, "%initialize-object", 2, 0, 0,
{ {
/* set slot to its :init-form if it exists */ /* set slot to its :init-form if it exists */
tmp = SCM_CADAR (get_n_set); tmp = SCM_CADAR (get_n_set);
if (tmp != SCM_BOOL_F) if (!SCM_FALSEP (tmp))
{ {
slot_value = get_slot_value (class, obj, SCM_CAR (get_n_set)); slot_value = get_slot_value (class, obj, SCM_CAR (get_n_set));
if (SCM_GOOPS_UNBOUNDP (slot_value)) if (SCM_GOOPS_UNBOUNDP (slot_value))