diff options
author | Jim Blandy <jimb@red-bean.com> | 1996-09-11 20:23:41 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1996-09-11 20:23:41 +0000 |
commit | ffa19a75a331b9a0cca7108abb6e0d75bd331f5f (patch) | |
tree | aaa3cebf2f3d53449e2666182787246cb4fc1e4a /libguile/async.c | |
parent | c01fdefe6e4254f3b10ed02afd32d08eb12af235 (diff) | |
download | guile-ffa19a75a331b9a0cca7108abb6e0d75bd331f5f.tar.gz |
* async.c: Calls to scm_sysintern corrected.
* async.c (scm_async_clock): Redundant declaration removed.
Diffstat (limited to 'libguile/async.c')
-rw-r--r-- | libguile/async.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/async.c b/libguile/async.c index 17219d3ef..4776f1137 100644 --- a/libguile/async.c +++ b/libguile/async.c @@ -710,7 +710,7 @@ scm_init_async () { SCM a_thunk; scm_tc16_async = scm_newsmob (&async_smob); - symbol_signal = SCM_CAR (scm_sysintern ("signal", strlen ("signal"))); + symbol_signal = SCM_CAR (scm_sysintern ("signal", SCM_UNDEFINED)); scm_permanent_object (symbol_signal); /* These are in the opposite order of delivery priortity. @@ -738,7 +738,7 @@ scm_init_async () a_thunk = scm_make_gsubr ("%alrm-thunk", 0, 0, 0, scm_sys_alrm_async_thunk); system_signal_asyncs[SCM_SIG_ORD(SCM_ALRM_SIGNAL)] = scm_system_async (a_thunk); - handler_var = scm_sysintern ("signal-handler", strlen ("signal")); + handler_var = scm_sysintern ("signal-handler", SCM_UNDEFINED); SCM_SETCDR (handler_var, SCM_BOOL_F); scm_permanent_object (handler_var); #include "async.x" |