From fd5621f8680e6a9a919324ed47a63cbdaa8a15ab Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 19 Nov 2013 19:19:55 +0100 Subject: [PATCH] Remove unused C scm_program_source. * libguile/programs.c (scm_program_source): Remove; not called. (The definition is in Scheme.) --- libguile/programs.c | 19 ------------------- libguile/programs.h | 1 - 2 files changed, 20 deletions(-) diff --git a/libguile/programs.c b/libguile/programs.c index 83cceb4c2..9ba361980 100644 --- a/libguile/programs.c +++ b/libguile/programs.c @@ -181,25 +181,6 @@ scm_find_source_for_addr (SCM ip) return scm_call_1 (scm_variable_ref (source_for_addr), ip); } -SCM -scm_program_source (SCM program, SCM ip, SCM sources) -{ - static SCM program_source = SCM_BOOL_F; - - if (scm_is_false (program_source)) { - if (!scm_module_system_booted_p) - return SCM_BOOL_F; - - program_source = - scm_c_private_variable ("system vm program", "program-source"); - } - - if (SCM_UNBNDP (sources)) - return scm_call_2 (scm_variable_ref (program_source), program, ip); - else - return scm_call_3 (scm_variable_ref (program_source), program, ip, sources); -} - SCM_DEFINE (scm_program_num_free_variables, "program-num-free-variables", 1, 0, 0, (SCM program), "") diff --git a/libguile/programs.h b/libguile/programs.h index eed02ba1a..096c2c02a 100644 --- a/libguile/programs.h +++ b/libguile/programs.h @@ -67,7 +67,6 @@ SCM_INTERNAL SCM scm_i_program_properties (SCM program); SCM_INTERNAL SCM scm_find_source_for_addr (SCM ip); -SCM_API SCM scm_program_source (SCM program, SCM ip, SCM sources); SCM_API SCM scm_program_num_free_variables (SCM program); SCM_API SCM scm_program_free_variable_ref (SCM program, SCM i); SCM_API SCM scm_program_free_variable_set_x (SCM program, SCM i, SCM x); -- 2.20.1