guile/guile-core/libguile async.h async.c

[Marius Vollmer]

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);