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

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

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

revision 1.54 by hanwen, Sun Sep 8 11:31:32 2002 UTC revision 1.55 by mdj, Wed Mar 19 08:57:47 2003 UTC
# Line 1  Line 1 
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
# Line 313  scm_make_smob_type (char *name, size_t s Line 313  scm_make_smob_type (char *name, size_t s
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  }  }
# Line 452  scm_set_smob_apply (scm_t_bits tc, SCM ( Line 452  scm_set_smob_apply (scm_t_bits tc, SCM (
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

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

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