[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile async.h async.c
From: |
Marius Vollmer |
Subject: |
guile/guile-core/libguile async.h async.c |
Date: |
Sun, 25 Nov 2001 10:04:56 -0500 |
CVSROOT: /cvs
Module name: guile
Changes by: Marius Vollmer <address@hidden> 01/11/25 10:04:56
Modified files:
guile-core/libguile: async.h async.c
Log message:
(scm_system_async_mark_from_signal_handler): New.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/async.h.diff?cvsroot=OldCVS&tr1=1.22&tr2=1.23&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/async.c.diff?cvsroot=OldCVS&tr1=1.59&tr2=1.60&r1=text&r2=text
Patches:
Index: guile/guile-core/libguile/async.c
diff -u guile/guile-core/libguile/async.c:1.59
guile/guile-core/libguile/async.c:1.60
--- guile/guile-core/libguile/async.c:1.59 Mon Jul 9 03:36:47 2001
+++ guile/guile-core/libguile/async.c Sun Nov 25 10:04:56 2001
@@ -339,6 +339,11 @@
}
#undef FUNC_NAME
+void
+scm_system_async_mark_from_signal_handler (SCM a)
+{
+ SET_ASYNC_GOT_IT (a, scm_asyncs_pending_p = 1);
+}
SCM_DEFINE (scm_run_asyncs, "run-asyncs", 1, 0, 0,
(SCM list_of_a),
Index: guile/guile-core/libguile/async.h
diff -u guile/guile-core/libguile/async.h:1.22
guile/guile-core/libguile/async.h:1.23
--- guile/guile-core/libguile/async.h:1.22 Thu Nov 1 19:07:51 2001
+++ guile/guile-core/libguile/async.h Sun Nov 25 10:04:56 2001
@@ -61,6 +61,7 @@
SCM_API SCM scm_system_async (SCM thunk);
SCM_API SCM scm_async_mark (SCM a);
SCM_API SCM scm_system_async_mark (SCM a);
+SCM_API void scm_system_async_mark_from_signal_handler (SCM a);
SCM_API SCM scm_run_asyncs (SCM list_of_a);
SCM_API SCM scm_noop (SCM args);
SCM_API SCM scm_set_tick_rate (SCM n);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/libguile async.h async.c,
Marius Vollmer <=