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) |
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, |