/[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.71 by dirk, Thu Sep 18 20:55:40 2003 UTC revision 1.72 by mvo, Tue Oct 7 15:58:18 2003 UTC
# Line 2435  create_standard_classes (void) Line 2435  create_standard_classes (void)
2435   **********************************************************************/   **********************************************************************/
2436    
2437  static SCM  static SCM
2438  make_class_from_template (char *template, char *type_name, SCM supers, int applicablep)  make_class_from_template (char const *template, char const *type_name, SCM supers, int applicablep)
2439  {  {
2440    SCM class, name;    SCM class, name;
2441    if (type_name)    if (type_name)
# Line 2462  make_class_from_template (char *template Line 2462  make_class_from_template (char *template
2462  }  }
2463    
2464  SCM  SCM
2465  scm_make_extended_class (char *type_name, int applicablep)  scm_make_extended_class (char const *type_name, int applicablep)
2466  {  {
2467    return make_class_from_template ("<%s>",    return make_class_from_template ("<%s>",
2468                                     type_name,                                     type_name,

Legend:
Removed from v.1.71  
changed lines
  Added in v.1.72

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