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

Remove unused C scm_program_source.

Browse source 
* libguile/programs.c (scm_program_source): Remove; not called.  (The
  definition is in Scheme.)
This commit is contained in:
Andy Wingo 2013-11-19 19:19:55 +01:00
parent a1eb8d1168
commit fd5621f868
2 changed files with 0 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

19
libguile/programs.c
View file

@ -181,25 +181,6 @@ scm_find_source_for_addr (SCM ip)
return scm_call_1 (scm_variable_ref (source_for_addr), 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_DEFINE (scm_program_num_free_variables, "program-num-free-variables", 1, 0, 0,
(SCM program), (SCM program),
"") "")

1
libguile/programs.h
View file

@ -67,7 +67,6 @@ SCM_INTERNAL SCM scm_i_program_properties (SCM program);
SCM_INTERNAL SCM scm_find_source_for_addr (SCM ip); 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_num_free_variables (SCM program);
SCM_API SCM scm_program_free_variable_ref (SCM program, SCM i); 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); SCM_API SCM scm_program_free_variable_set_x (SCM program, SCM i, SCM x);