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; |
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 |
} |
} |
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 |
|
|