/[guile]/guile/guile-core/libguile/goops.c
ViewVC logotype

Diff of /guile/guile-core/libguile/goops.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.65 by mdj, Fri Apr 18 08:19:03 2003 UTC revision 1.66 by dirk, Sun Apr 20 23:38:18 2003 UTC
# Line 94  Line 94 
94  #define TEST_CHANGE_CLASS(obj, class)                                  \  #define TEST_CHANGE_CLASS(obj, class)                                  \
95          {                                                              \          {                                                              \
96            class = SCM_CLASS_OF (obj);                                  \            class = SCM_CLASS_OF (obj);                                  \
97            if (SCM_OBJ_CLASS_REDEF (obj) != SCM_BOOL_F)                 \            if (!SCM_FALSEP (SCM_OBJ_CLASS_REDEF (obj)))                 \
98              {                                                          \              {                                                          \
99                scm_change_object_class (obj, class, SCM_OBJ_CLASS_REDEF (obj));\                scm_change_object_class (obj, class, SCM_OBJ_CLASS_REDEF (obj));\
100                class = SCM_CLASS_OF (obj);                              \                class = SCM_CLASS_OF (obj);                              \
# Line 426  SCM_DEFINE (scm_sys_initialize_object, " Line 426  SCM_DEFINE (scm_sys_initialize_object, "
426          {          {
427            /* set slot to its :init-form if it exists */            /* set slot to its :init-form if it exists */
428            tmp = SCM_CADAR (get_n_set);            tmp = SCM_CADAR (get_n_set);
429            if (tmp != SCM_BOOL_F)            if (!SCM_FALSEP (tmp))
430              {              {
431                slot_value = get_slot_value (class, obj, SCM_CAR (get_n_set));                slot_value = get_slot_value (class, obj, SCM_CAR (get_n_set));
432                if (SCM_GOOPS_UNBOUNDP (slot_value))                if (SCM_GOOPS_UNBOUNDP (slot_value))

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26