From ffa19a75a331b9a0cca7108abb6e0d75bd331f5f Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@red-bean.com>
Date: Wed, 11 Sep 1996 20:23:41 +0000
Subject: [PATCH] * async.c: Calls to scm_sysintern corrected.

* async.c (scm_async_clock): Redundant declaration removed.
---
 libguile/async.c | 4 ++--
 1 file 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"