summaryrefslogtreecommitdiff
path: root/libguile/async.c
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1996-09-11 20:23:41 +0000
committerJim Blandy <jimb@red-bean.com>1996-09-11 20:23:41 +0000
commitffa19a75a331b9a0cca7108abb6e0d75bd331f5f (patch)
treeaaa3cebf2f3d53449e2666182787246cb4fc1e4a /libguile/async.c
parentc01fdefe6e4254f3b10ed02afd32d08eb12af235 (diff)
downloadguile-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.c4
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"