summaryrefslogtreecommitdiff
path: root/libguile/print.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2002-12-15 14:24:34 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2002-12-15 14:24:34 +0000
commit28d52ebb1945223db0df88cc33e4a88d860dafbb (patch)
tree41e93008606708a69c3d3f0a7065abca21a477ad /libguile/print.c
parent2ff4f1815955aa0c6b759d3c160658fe576ba5ee (diff)
downloadguile-28d52ebb1945223db0df88cc33e4a88d860dafbb.tar.gz
* __scm.h (SCM_DEFER_INTS, SCM_ALLOW_INTS): New definitions.
Simply lock a thread C API recursive mutex. (SCM_NONREC_CRITICAL_SECTION_START, SCM_NONREC_CRITICAL_SECTION_END, SCM_REC_CRITICAL_SECTION_START, SCM_REC_CRITICAL_SECTION_END): Removed. * eval.c: Replaced SOURCE_SECTION_START / SOURCE_SECTION_END with direct calls to scm_rec_mutex_lock / unlock around the three calls to scm_m_expand_body. * eval.c, eval.h (promise_free): New function. (scm_force): Rewritten; Now thread-safe; Removed SCM_DEFER/ALLOW_INTS. * pthread-threads.h: Added partially implemented plugin interface for recursive mutexes. These are, for now, only intended to be used internally within the Guile implementation. * pthread-threads.c: New file. * threads.c: Conditionally #include "pthread-threads.c". * eval.c, eval.h (scm_makprom, scm_force): Rewritten to be thread-safe; * snarf.h (SCM_MUTEX, SCM_GLOBAL_MUTEX, SCM_REC_MUTEX, SCM_GLOBAL_REC_MUTEX): New macros. * eval.c, threads.c, threads.h, snarf.h: Rewrote critical section macros---use mutexes instead. * tags.h (SCM_IM_FUTURE): New tag. * eval.c (scm_m_future): New primitive macro. (SCM_CEVAL): Support futures. (unmemocopy): Support unmemoization of futures. * print.c (scm_isymnames): Name of future isym.
Diffstat (limited to 'libguile/print.c')
-rw-r--r--libguile/print.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/print.c b/libguile/print.c
index cf1ba134d..20332e0b4 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -117,6 +117,7 @@ char *scm_isymnames[] =
"#@bind",
"#@delay",
+ "#@future",
"#@call-with-values",
"#<unbound>",