1 |
/* Copyright (C) 1995,1996,1998,1999,2000,2001 Free Software Foundation, Inc. |
/* Copyright (C) 1995,1996,1998,1999,2000,2001, 2003 Free Software Foundation, Inc. |
2 |
* |
* |
3 |
* This program is free software; you can redistribute it and/or modify |
* This program is free software; you can redistribute it and/or modify |
4 |
* it under the terms of the GNU General Public License as published by |
* it under the terms of the GNU General Public License as published by |
313 |
|
|
314 |
/* Make a class object if Goops is present. */ |
/* Make a class object if Goops is present. */ |
315 |
if (scm_smob_class) |
if (scm_smob_class) |
316 |
scm_smob_class[new_smob] = scm_make_extended_class (name); |
scm_smob_class[new_smob] = scm_make_extended_class (name, 0); |
317 |
|
|
318 |
return scm_tc7_smob + new_smob * 256; |
return scm_tc7_smob + new_smob * 256; |
319 |
} |
} |
452 |
scm_smobs[SCM_TC2SMOBNUM (tc)].apply_2 = apply_2; |
scm_smobs[SCM_TC2SMOBNUM (tc)].apply_2 = apply_2; |
453 |
scm_smobs[SCM_TC2SMOBNUM (tc)].apply_3 = apply_3; |
scm_smobs[SCM_TC2SMOBNUM (tc)].apply_3 = apply_3; |
454 |
scm_smobs[SCM_TC2SMOBNUM (tc)].gsubr_type = type; |
scm_smobs[SCM_TC2SMOBNUM (tc)].gsubr_type = type; |
455 |
|
|
456 |
|
if (scm_smob_class) |
457 |
|
scm_i_inherit_applicable (scm_smob_class[SCM_TC2SMOBNUM (tc)]); |
458 |
} |
} |
459 |
|
|
460 |
SCM |
SCM |