/[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.56 by mdj, Wed Jan 8 15:05:55 2003 UTC revision 1.57 by mdj, Fri Jan 10 12:58:40 2003 UTC
# Line 119  Line 119 
119          {                                                                     \          {                                                                     \
120            class = SCM_CLASS_OF (obj);                                         \            class = SCM_CLASS_OF (obj);                                         \
121            if (SCM_OBJ_CLASS_REDEF (obj) != SCM_BOOL_F)                        \            if (SCM_OBJ_CLASS_REDEF (obj) != SCM_BOOL_F)                        \
122              CALL_GF3 ("change-object-class",                                  \              scm_change_object_class (obj, class, SCM_OBJ_CLASS_REDEF (obj));  \
                       obj, class, SCM_OBJ_CLASS_REDEF (obj));                 \  
123          }          }
124    
125  #define NXT_MTHD_METHODS(m)     (SCM_VELTS (m)[1])  #define NXT_MTHD_METHODS(m)     (SCM_VELTS (m)[1])
# Line 1560  purgatory (void *args) Line 1559  purgatory (void *args)
1559                        SCM_PACK ((scm_t_bits) args));                        SCM_PACK ((scm_t_bits) args));
1560  }  }
1561    
1562    /* This function calls the generic function change-class for all
1563     * instances which aren't currently undergoing class change.
1564     */
1565    
1566  void  void
1567  scm_change_object_class (SCM obj, SCM old_class SCM_UNUSED, SCM new_class)  scm_change_object_class (SCM obj, SCM old_class SCM_UNUSED, SCM new_class)
1568  {  {

Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57

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