summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/programs.c19
-rw-r--r--libguile/programs.h1
2 files changed, 0 insertions, 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);