diff options
author | Andy Wingo <wingo@pobox.com> | 2013-10-03 19:45:41 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-10-03 20:37:48 +0200 |
commit | d7794a9d07ba657a29f7e608c3e558c437806def (patch) | |
tree | 48e2fdceb2e3088c9bee5029b7417bbe43bc116c /libguile/programs.c | |
parent | 8df68898b9f6ba15171244f1f3549688f13d605f (diff) | |
download | guile-d7794a9d07ba657a29f7e608c3e558c437806def.tar.gz |
Deprecate scm_c_program_source, as it has no internal users.
* libguile/programs.c:
* libguile/programs.h:
* libguile/deprecated.h:
* libguile/deprecated.c (scm_c_program_source): Deprecate.
Diffstat (limited to 'libguile/programs.c')
-rw-r--r-- | libguile/programs.c | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/libguile/programs.c b/libguile/programs.c index b84f84bd3..d2b2e755b 100644 --- a/libguile/programs.c +++ b/libguile/programs.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2001, 2009, 2010, 2011 Free Software Foundation, Inc. +/* Copyright (C) 2001, 2009, 2010, 2011, 2013 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -294,12 +294,6 @@ SCM_DEFINE (scm_program_source, "program-source", 2, 1, 0, } #undef FUNC_NAME -extern SCM -scm_c_program_source (SCM program, size_t ip) -{ - return program_source (program, ip, scm_program_sources (program)); -} - SCM_DEFINE (scm_program_num_free_variables, "program-num-free-variables", 1, 0, 0, (SCM program), "") |