mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-07 18:30:25 +02:00
Code Activity

* eval.c (scm_init_eval): Use scm_make_smob_type instead of

Browse source 
scm_newsmob.
This commit is contained in:
Mikael Djurfeldt 1999-08-24 02:10:19 +00:00
parent e2e470cf47
commit f99c9c2824
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/eval.c
View file

@ -3980,8 +3980,6 @@ scm_eval_x (obj)
(SCM_CDR (scm_top_level_lookup_closure_var))); (SCM_CDR (scm_top_level_lookup_closure_var)));
} }
static const scm_smobfuns promsmob = {scm_markcdr, scm_free0, prinprom};
/* At this point, scm_deval and scm_dapply are generated. /* At this point, scm_deval and scm_dapply are generated.
*/ */
@ -4003,7 +4001,9 @@ scm_init_eval ()
scm_eval_opts, scm_eval_opts,
SCM_N_EVAL_OPTIONS); SCM_N_EVAL_OPTIONS);
scm_tc16_promise = scm_newsmob (&promsmob); scm_tc16_promise = scm_make_smob_type ("promise", 0);
scm_set_smob_mark (scm_tc16_promise, scm_markcdr);
scm_set_smob_print (scm_tc16_promise, prinprom);
scm_sym_apply = scm_make_subr ("apply", scm_tc7_lsubr_2, scm_apply); scm_sym_apply = scm_make_subr ("apply", scm_tc7_lsubr_2, scm_apply);
scm_system_transformer = scm_sysintern ("scm:eval-transformer", SCM_UNDEFINED); scm_system_transformer = scm_sysintern ("scm:eval-transformer", SCM_UNDEFINED);