Remove unused C scm_program_source.

* libguile/programs.c (scm_program_source): Remove; not called.  (The
  definition is in Scheme.)

diff --git a/libguile/programs.c b/libguile/programs.c
index 83cceb4..9ba3619 100644 (file)
--- 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 eed02ba..096c2c0 100644 (file)
--- 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);