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/async.c | |
parent | fb764465068f84e3ab047c45792ffc3026e5505a (diff) | |
download | guile-a1ec69163dd2e55e5d2b03a164513aa4a0d5943c.tar.gz |
*.[ch]: Replace GUILE_PROC w/ SCM_DEFINE.
Diffstat (limited to 'libguile/async.c')
-rw-r--r-- | libguile/async.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/libguile/async.c b/libguile/async.c index 3aa31325c..f77435092 100644 --- a/libguile/async.c +++ b/libguile/async.c @@ -277,7 +277,7 @@ mark_async (SCM obj) -GUILE_PROC(scm_async, "async", 1, 0, 0, +SCM_DEFINE(scm_async, "async", 1, 0, 0, (SCM thunk), "") #define FUNC_NAME s_scm_async @@ -290,7 +290,7 @@ GUILE_PROC(scm_async, "async", 1, 0, 0, } #undef FUNC_NAME -GUILE_PROC(scm_system_async, "system-async", 1, 0, 0, +SCM_DEFINE(scm_system_async, "system-async", 1, 0, 0, (SCM thunk), "") #define FUNC_NAME s_scm_system_async @@ -305,7 +305,7 @@ GUILE_PROC(scm_system_async, "system-async", 1, 0, 0, } #undef FUNC_NAME -GUILE_PROC(scm_async_mark, "async-mark", 1, 0, 0, +SCM_DEFINE(scm_async_mark, "async-mark", 1, 0, 0, (SCM a), "") #define FUNC_NAME s_scm_async_mark @@ -318,7 +318,7 @@ GUILE_PROC(scm_async_mark, "async-mark", 1, 0, 0, #undef FUNC_NAME -GUILE_PROC(scm_system_async_mark, "system-async-mark", 1, 0, 0, +SCM_DEFINE(scm_system_async_mark, "system-async-mark", 1, 0, 0, (SCM a), "") #define FUNC_NAME s_scm_system_async_mark @@ -335,7 +335,7 @@ GUILE_PROC(scm_system_async_mark, "system-async-mark", 1, 0, 0, #undef FUNC_NAME -GUILE_PROC(scm_run_asyncs, "run-asyncs", 1, 0, 0, +SCM_DEFINE(scm_run_asyncs, "run-asyncs", 1, 0, 0, (SCM list_of_a), "") #define FUNC_NAME s_scm_run_asyncs @@ -366,7 +366,7 @@ GUILE_PROC(scm_run_asyncs, "run-asyncs", 1, 0, 0, -GUILE_PROC(scm_noop, "noop", 0, 0, 1, +SCM_DEFINE(scm_noop, "noop", 0, 0, 1, (SCM args), "") #define FUNC_NAME s_scm_noop @@ -380,7 +380,7 @@ GUILE_PROC(scm_noop, "noop", 0, 0, 1, -GUILE_PROC(scm_set_tick_rate, "set-tick-rate", 1, 0, 0, +SCM_DEFINE(scm_set_tick_rate, "set-tick-rate", 1, 0, 0, (SCM n), "") #define FUNC_NAME s_scm_set_tick_rate @@ -398,7 +398,7 @@ GUILE_PROC(scm_set_tick_rate, "set-tick-rate", 1, 0, 0, -GUILE_PROC(scm_set_switch_rate, "set-switch-rate", 1, 0, 0, +SCM_DEFINE(scm_set_switch_rate, "set-switch-rate", 1, 0, 0, (SCM n), "") #define FUNC_NAME s_scm_set_switch_rate @@ -438,7 +438,7 @@ scm_sys_gc_async_thunk (void) -GUILE_PROC(scm_unmask_signals, "unmask-signals", 0, 0, 0, +SCM_DEFINE(scm_unmask_signals, "unmask-signals", 0, 0, 0, (), "") #define FUNC_NAME s_scm_unmask_signals @@ -449,7 +449,7 @@ GUILE_PROC(scm_unmask_signals, "unmask-signals", 0, 0, 0, #undef FUNC_NAME -GUILE_PROC(scm_mask_signals, "mask-signals", 0, 0, 0, +SCM_DEFINE(scm_mask_signals, "mask-signals", 0, 0, 0, (), "") #define FUNC_NAME s_scm_mask_signals |