diff options
author | Michael Livshin <mlivshin@bigfoot.com> | 2001-05-26 20:51:22 +0000 |
---|---|---|
committer | Michael Livshin <mlivshin@bigfoot.com> | 2001-05-26 20:51:22 +0000 |
commit | c014a02eec7b99c54d8a156ce491ae8d1e341f97 (patch) | |
tree | fa7a113564c23215b83e44a1498616a6bf16c853 /libguile/procs.h | |
parent | f3f70257a3befb6495760923d167e52d5cdfddae (diff) | |
download | guile-c014a02eec7b99c54d8a156ce491ae8d1e341f97.tar.gz |
revert the ill-considered part of the 2001-05-24 changes
Diffstat (limited to 'libguile/procs.h')
-rw-r--r-- | libguile/procs.h | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/procs.h b/libguile/procs.h index acb2bc94f..0f07bb08f 100644 --- a/libguile/procs.h +++ b/libguile/procs.h @@ -158,18 +158,18 @@ typedef struct #define SCM_SETTER(obj) SCM_CELL_OBJECT_2 (obj) extern scm_subr_entry_t *scm_subr_table; -extern scm_bits_t scm_subr_table_size; -extern scm_bits_t scm_subr_table_room; +extern long scm_subr_table_size; +extern long scm_subr_table_room; extern void scm_mark_subr_table (void); extern void scm_free_subr_entry (SCM subr); -extern SCM scm_c_make_subr (const char *name, scm_bits_t type, SCM (*fcn)()); -extern SCM scm_c_make_subr_with_generic (const char *name, scm_bits_t type, +extern SCM scm_c_make_subr (const char *name, long type, SCM (*fcn)()); +extern SCM scm_c_make_subr_with_generic (const char *name, long type, SCM (*fcn)(), SCM *gf); -extern SCM scm_c_define_subr (const char *name, scm_bits_t type, SCM (*fcn)()); -extern SCM scm_c_define_subr_with_generic (const char *name, scm_bits_t type, +extern SCM scm_c_define_subr (const char *name, long type, SCM (*fcn)()); +extern SCM scm_c_define_subr_with_generic (const char *name, long type, SCM (*fcn)(), SCM *gf); extern SCM scm_makcclo (SCM proc, size_t len); extern SCM scm_procedure_p (SCM obj); |