diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-03-22 15:46:46 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-03-22 16:00:10 +0100 |
commit | 3d94d862f898929876aaa8ed2937347fa3ce7ec1 (patch) | |
tree | 639018315fb0c222f8ab67dcffc634602706ea79 /libguile/programs.c | |
parent | d9e59f894e1b41958203ddda7f21f4817cfcfe37 (diff) | |
download | guile-3d94d862f898929876aaa8ed2937347fa3ce7ec1.tar.gz |
Remove unneeded VM SMOB mark/free procedures.
* libguile/vm.c (vm_mark_stack, vm_cont_mark, vm_cont_free, vm_mark,
vm_free): Remove.
(scm_bootstrap_vm): Remove corresponding `scm_set_smob_mark ()' and
`scm_set_smob_free ()' calls.
* libguile/frames.c (vm_frame_mark, vm_frame_free): Remove.
(scm_bootstrap_frames): Remove `scm_set_smob_mark ()' and
`scm_set_smob_free ()' calls.
* libguile/objcodes.c (objcode_mark): Remove.
(scm_bootstrap_objcodes): Remove call to `scm_set_smob_mark ()'.
* libguile/programs.c (program_mark): Remove.
(scm_bootstrap_programs): Remove call to `scm_set_smob_mark ()'.
Diffstat (limited to 'libguile/programs.c')
-rw-r--r-- | libguile/programs.c | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/libguile/programs.c b/libguile/programs.c index 1d6318c6c..1fcfc54c8 100644 --- a/libguile/programs.c +++ b/libguile/programs.c @@ -83,16 +83,6 @@ SCM_DEFINE (scm_make_program, "make-program", 1, 2, 0, #undef FUNC_NAME static SCM -program_mark (SCM obj) -{ - if (scm_is_true (SCM_PROGRAM_OBJTABLE (obj))) - scm_gc_mark (SCM_PROGRAM_OBJTABLE (obj)); - if (!scm_is_null (SCM_PROGRAM_EXTERNALS (obj))) - scm_gc_mark (SCM_PROGRAM_EXTERNALS (obj)); - return SCM_PROGRAM_OBJCODE (obj); -} - -static SCM program_apply (SCM program, SCM args) { return scm_vm_apply (scm_the_vm (), program, args); @@ -362,7 +352,6 @@ void scm_bootstrap_programs (void) { scm_tc16_program = scm_make_smob_type ("program", 0); - scm_set_smob_mark (scm_tc16_program, program_mark); scm_set_smob_apply (scm_tc16_program, program_apply, 0, 0, 1); scm_smobs[SCM_TC2SMOBNUM (scm_tc16_program)].apply_0 = program_apply_0; scm_smobs[SCM_TC2SMOBNUM (scm_tc16_program)].apply_1 = program_apply_1; |