HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge commit 'f30e1bdf97ae8b2b2918da585f887a4d3a23a347' into boehm-demers-weiser-gc
[bpt/guile.git]
/
libguile
/
eval.c
diff --git
a/libguile/eval.c
b/libguile/eval.c
index
db5c005
..
dcbd1ac
100644
(file)
--- a/
libguile/eval.c
+++ b/
libguile/eval.c
@@
-5600,18
+5600,6
@@
scm_makprom (SCM code)
scm_make_recursive_mutex ());
}
scm_make_recursive_mutex ());
}
-static SCM
-promise_mark (SCM promise)
-{
- scm_gc_mark (SCM_PROMISE_MUTEX (promise));
- return SCM_PROMISE_DATA (promise);
-}
-
-static size_t
-promise_free (SCM promise)
-{
- return 0;
-}
static int
promise_print (SCM exp, SCM port, scm_print_state *pstate)
static int
promise_print (SCM exp, SCM port, scm_print_state *pstate)
@@
-6032,8
+6020,6
@@
scm_init_eval ()
SCM_N_EVAL_OPTIONS);
scm_tc16_promise = scm_make_smob_type ("promise", 0);
SCM_N_EVAL_OPTIONS);
scm_tc16_promise = scm_make_smob_type ("promise", 0);
- scm_set_smob_mark (scm_tc16_promise, promise_mark);
- scm_set_smob_free (scm_tc16_promise, promise_free);
scm_set_smob_print (scm_tc16_promise, promise_print);
undefineds = scm_list_1 (SCM_UNDEFINED);
scm_set_smob_print (scm_tc16_promise, promise_print);
undefineds = scm_list_1 (SCM_UNDEFINED);