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

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

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

revision 1.66 by mvo, Mon Feb 11 18:06:49 2002 UTC revision 1.67 by dirk, Fri Mar 1 00:19:20 2002 UTC
# Line 85  scm_c_make_subr (const char *name, long Line 85  scm_c_make_subr (const char *name, long
85      }      }
86    
87    entry = scm_subr_table_size;    entry = scm_subr_table_size;
88    z = scm_alloc_cell ((entry << 8) + type, (scm_t_bits) fcn);    z = scm_cell ((entry << 8) + type, (scm_t_bits) fcn);
89    scm_subr_table[entry].handle = z;    scm_subr_table[entry].handle = z;
90    scm_subr_table[entry].name = scm_str2symbol (name);    scm_subr_table[entry].name = scm_str2symbol (name);
91    scm_subr_table[entry].generic = 0;    scm_subr_table[entry].generic = 0;
# Line 160  scm_makcclo (SCM proc, size_t len) Line 160  scm_makcclo (SCM proc, size_t len)
160    for (i = 0; i < len; ++i)    for (i = 0; i < len; ++i)
161      base [i] = SCM_UNPACK (SCM_UNSPECIFIED);      base [i] = SCM_UNPACK (SCM_UNSPECIFIED);
162    
163    s = scm_alloc_cell (SCM_MAKE_CCLO_TAG (len), (scm_t_bits) base);    s = scm_cell (SCM_MAKE_CCLO_TAG (len), (scm_t_bits) base);
164    SCM_SET_CCLO_SUBR (s, proc);    SCM_SET_CCLO_SUBR (s, proc);
165    return s;    return s;
166  }  }
# Line 320  SCM_DEFINE (scm_make_procedure_with_sett Line 320  SCM_DEFINE (scm_make_procedure_with_sett
320  {  {
321    SCM_VALIDATE_PROC (1, procedure);    SCM_VALIDATE_PROC (1, procedure);
322    SCM_VALIDATE_PROC (2, setter);    SCM_VALIDATE_PROC (2, setter);
323    return scm_alloc_double_cell (scm_tc7_pws,    return scm_double_cell (scm_tc7_pws,
324                                  SCM_UNPACK (procedure),                            SCM_UNPACK (procedure),
325                                  SCM_UNPACK (setter), 0);                            SCM_UNPACK (setter), 0);
326  }  }
327  #undef FUNC_NAME  #undef FUNC_NAME
328    

Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67

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