diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 19:05:23 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 19:05:23 +0000 |
commit | a1ec69163dd2e55e5d2b03a164513aa4a0d5943c (patch) | |
tree | 99489194c03fa41397c77e84b3f8660ffef1ed30 /libguile/feature.c | |
parent | fb764465068f84e3ab047c45792ffc3026e5505a (diff) | |
download | guile-a1ec69163dd2e55e5d2b03a164513aa4a0d5943c.tar.gz |
*.[ch]: Replace GUILE_PROC w/ SCM_DEFINE.
Diffstat (limited to 'libguile/feature.c')
-rw-r--r-- | libguile/feature.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/libguile/feature.c b/libguile/feature.c index 6e20bd93d..f55c855f9 100644 --- a/libguile/feature.c +++ b/libguile/feature.c @@ -71,7 +71,7 @@ scm_add_feature (const char *str) -GUILE_PROC(scm_program_arguments, "program-arguments", 0, 0, 0, +SCM_DEFINE(scm_program_arguments, "program-arguments", 0, 0, 0, (), "") #define FUNC_NAME s_scm_program_arguments @@ -179,7 +179,7 @@ scm_make_named_hook (const char* name, int n_args) } -GUILE_PROC (scm_make_hook_with_name, "make-hook-with-name", 1, 1, 0, +SCM_DEFINE (scm_make_hook_with_name, "make-hook-with-name", 1, 1, 0, (SCM name, SCM n_args), "") #define FUNC_NAME s_scm_make_hook_with_name @@ -189,7 +189,7 @@ GUILE_PROC (scm_make_hook_with_name, "make-hook-with-name", 1, 1, 0, #undef FUNC_NAME -GUILE_PROC (scm_make_hook, "make-hook", 0, 1, 0, +SCM_DEFINE (scm_make_hook, "make-hook", 0, 1, 0, (SCM n_args), "") #define FUNC_NAME s_scm_make_hook @@ -199,7 +199,7 @@ GUILE_PROC (scm_make_hook, "make-hook", 0, 1, 0, #undef FUNC_NAME -GUILE_PROC (scm_hook_p, "hook?", 1, 0, 0, +SCM_DEFINE (scm_hook_p, "hook?", 1, 0, 0, (SCM x), "") #define FUNC_NAME s_scm_hook_p @@ -209,7 +209,7 @@ GUILE_PROC (scm_hook_p, "hook?", 1, 0, 0, #undef FUNC_NAME -GUILE_PROC (scm_hook_empty_p, "hook-empty?", 1, 0, 0, +SCM_DEFINE (scm_hook_empty_p, "hook-empty?", 1, 0, 0, (SCM hook), "") #define FUNC_NAME s_scm_hook_empty_p @@ -220,7 +220,7 @@ GUILE_PROC (scm_hook_empty_p, "hook-empty?", 1, 0, 0, #undef FUNC_NAME -GUILE_PROC (scm_add_hook_x, "add-hook!", 2, 1, 0, +SCM_DEFINE (scm_add_hook_x, "add-hook!", 2, 1, 0, (SCM hook, SCM proc, SCM append_p), "") #define FUNC_NAME s_scm_add_hook_x @@ -246,7 +246,7 @@ GUILE_PROC (scm_add_hook_x, "add-hook!", 2, 1, 0, #undef FUNC_NAME -GUILE_PROC (scm_remove_hook_x, "remove-hook!", 2, 0, 0, +SCM_DEFINE (scm_remove_hook_x, "remove-hook!", 2, 0, 0, (SCM hook, SCM proc), "") #define FUNC_NAME s_scm_remove_hook_x @@ -259,7 +259,7 @@ GUILE_PROC (scm_remove_hook_x, "remove-hook!", 2, 0, 0, #undef FUNC_NAME -GUILE_PROC (scm_reset_hook_x, "reset-hook!", 1, 0, 0, +SCM_DEFINE (scm_reset_hook_x, "reset-hook!", 1, 0, 0, (SCM hook), "") #define FUNC_NAME s_scm_reset_hook_x @@ -271,7 +271,7 @@ GUILE_PROC (scm_reset_hook_x, "reset-hook!", 1, 0, 0, #undef FUNC_NAME -GUILE_PROC (scm_run_hook, "run-hook", 1, 0, 1, +SCM_DEFINE (scm_run_hook, "run-hook", 1, 0, 1, (SCM hook, SCM args), "") #define FUNC_NAME s_scm_run_hook @@ -301,7 +301,7 @@ scm_c_run_hook (SCM hook, SCM args) } -GUILE_PROC (scm_hook_to_list, "hook->list", 1, 0, 0, +SCM_DEFINE (scm_hook_to_list, "hook->list", 1, 0, 0, (SCM hook), "") #define FUNC_NAME s_scm_hook_to_list |