summaryrefslogtreecommitdiff
path: root/libguile/programs.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-04-17 15:17:24 +0200
committerAndy Wingo <wingo@pobox.com>2010-04-17 15:21:08 +0200
commit1e23b461ecd25c582dd0b10ebb1d7fd22f5e5ec4 (patch)
tree196955f1910c7899ea3cf77f155508f93ecd5a52 /libguile/programs.c
parent07e424b753b31702bdee9a2f144af8dd407abfaf (diff)
downloadguile-1e23b461ecd25c582dd0b10ebb1d7fd22f5e5ec4.tar.gz
remove program-name, program-documentation
* libguile/programs.h: * libguile/programs.c (scm_program_name): Remove. procedure-name is sufficient. * module/system/vm/program.scm (program-name): Remove from exports list. (program-documentation): Remove; procedure-documentation is sufficient. * libguile/debug.c (scm_procedure_name): Remove special case for programs. * module/language/tree-il/analyze.scm (validate-arity): Use procedure-name. * module/ice-9/documentation.scm (object-documentation): Just use procedure-documentation, without special cases for programs.
Diffstat (limited to 'libguile/programs.c')
-rw-r--r--libguile/programs.c10
1 files changed, 0 insertions, 10 deletions
diff --git a/libguile/programs.c b/libguile/programs.c
index 08b6f65ab..70c399ba8 100644
--- a/libguile/programs.c
+++ b/libguile/programs.c
@@ -260,16 +260,6 @@ scm_i_program_properties (SCM program)
}
#undef FUNC_NAME
-SCM_DEFINE (scm_program_name, "program-name", 1, 0, 0,
- (SCM program),
- "")
-#define FUNC_NAME s_scm_program_name
-{
- SCM_VALIDATE_PROGRAM (1, program);
- return scm_assq_ref (scm_i_program_properties (program), scm_sym_name);
-}
-#undef FUNC_NAME
-
SCM_DEFINE (scm_program_source, "program-source", 2, 0, 0,
(SCM program, SCM ip),
"")