diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-19 19:19:55 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-19 19:36:38 +0100 |
commit | fd5621f8680e6a9a919324ed47a63cbdaa8a15ab (patch) | |
tree | 56323d2a8981a2f3d473cee456c02bda27698c3b /libguile/programs.c | |
parent | a1eb8d1168c35889d50893e636eee7cfec581cba (diff) | |
download | guile-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.c | 19 |
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), "") |