summaryrefslogtreecommitdiff
path: root/libguile/programs.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-19 19:19:55 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-19 19:36:38 +0100
commitfd5621f8680e6a9a919324ed47a63cbdaa8a15ab (patch)
tree56323d2a8981a2f3d473cee456c02bda27698c3b /libguile/programs.c
parenta1eb8d1168c35889d50893e636eee7cfec581cba (diff)
downloadguile-fd5621f8680e6a9a919324ed47a63cbdaa8a15ab.tar.gz
Remove unused C scm_program_source.
* libguile/programs.c (scm_program_source): Remove; not called. (The definition is in Scheme.)
Diffstat (limited to 'libguile/programs.c')
-rw-r--r--libguile/programs.c19
1 files changed, 0 insertions, 19 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),
"")