summaryrefslogtreecommitdiff
path: root/libguile/eval.h
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2003-01-23 16:04:37 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2003-01-23 16:04:37 +0000
commit756414cf2c781aee4207de3961d7c7e678931a70 (patch)
tree0795ae06ee76105432dc1f3647eb2de4c902bdd1 /libguile/eval.h
parentf4719f31917110dcbbdb8d84bee8d6b59caaa693 (diff)
downloadguile-756414cf2c781aee4207de3961d7c7e678931a70.tar.gz
* threads.h, threads.c: Moved futures to their own file.
* Makefile.am (libguile_la_SOURCES): Added futures.c. (DOT_X_FILES): Added futures.x. (DOT_DOC_FILES): Added futures.doc. (modinclude_HEADERS): Added futures.h. * threads.c, threads.h (scm_i_create_thread): Renamed from create_thread and made global. * eval.c: #include "libguile/futures.h". * init.c: #include "futures.h" (scm_init_guile_1): Call scm_init_futures. * stime.c (SCM_TIME_UNITS_PER_SECOND): Renamed from CLKTCK. * stime.h (SCM_TIME_UNITS_PER_SECOND): Definition moved here. * eval.c, eval.h (scm_trampoline_0, scm_i_call_closure_0): New functions. * eval.c (scm_trampoline_1): Fixed arguments test for closures.
Diffstat (limited to 'libguile/eval.h')
-rw-r--r--libguile/eval.h5
1 files changed, 4 insertions, 1 deletions
diff --git a/libguile/eval.h b/libguile/eval.h
index 8e2fbee84..f8e739abd 100644
--- a/libguile/eval.h
+++ b/libguile/eval.h
@@ -3,7 +3,7 @@
#ifndef SCM_EVAL_H
#define SCM_EVAL_H
-/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002, 2003 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -145,6 +145,7 @@ SCM_API scm_t_bits scm_tc16_promise;
#define SCM_XEVALCAR(x, env) EVALCAR (x, env)
#endif /* DEBUG_EXTENSIONS */
+typedef SCM (*scm_t_trampoline_0) (SCM proc);
typedef SCM (*scm_t_trampoline_1) (SCM proc, SCM arg1);
typedef SCM (*scm_t_trampoline_2) (SCM proc, SCM arg1, SCM arg2);
@@ -243,6 +244,8 @@ SCM_API SCM scm_apply_0 (SCM proc, SCM args);
SCM_API SCM scm_apply_1 (SCM proc, SCM arg1, SCM args);
SCM_API SCM scm_apply_2 (SCM proc, SCM arg1, SCM arg2, SCM args);
SCM_API SCM scm_apply_3 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM args);
+SCM_API SCM scm_i_call_closure_0 (SCM proc);
+SCM_API scm_t_trampoline_0 scm_trampoline_0 (SCM proc);
SCM_API scm_t_trampoline_1 scm_trampoline_1 (SCM proc);
SCM_API scm_t_trampoline_2 scm_trampoline_2 (SCM proc);
SCM_API SCM scm_nconc2last (SCM lst);