summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-19 19:50:15 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-19 19:50:15 +0100
commit6b9470bf483e14e10ae85fc6bcbc25b4e2e77ff7 (patch)
tree135f4ecdade1490a74d3491566d9132bc405ab45
parent2b4d21d53e800e1af61caf6c8393660fe392c628 (diff)
downloadguile-6b9470bf483e14e10ae85fc6bcbc25b4e2e77ff7.tar.gz
Rename internal rtl-program-properties -> program-properties
* module/system/vm/program.scm (program-properties): Rename from rtl-program-properties. * libguile/programs.c (scm_i_program_properties): Adapt.
-rw-r--r--libguile/programs.c10
-rw-r--r--module/system/vm/program.scm4
2 files changed, 6 insertions, 8 deletions
diff --git a/libguile/programs.c b/libguile/programs.c
index 1901d981f..fae95d0ab 100644
--- a/libguile/programs.c
+++ b/libguile/programs.c
@@ -74,7 +74,7 @@ scm_i_program_documentation (SCM program)
SCM
scm_i_program_properties (SCM program)
{
- static SCM rtl_program_properties = SCM_BOOL_F;
+ static SCM program_properties = SCM_BOOL_F;
if (SCM_PRIMITIVE_P (program))
{
@@ -84,11 +84,11 @@ scm_i_program_properties (SCM program)
return scm_acons (scm_sym_name, name, SCM_EOL);
}
- if (scm_is_false (rtl_program_properties) && scm_module_system_booted_p)
- rtl_program_properties =
- scm_c_private_variable ("system vm program", "rtl-program-properties");
+ if (scm_is_false (program_properties) && scm_module_system_booted_p)
+ program_properties =
+ scm_c_private_variable ("system vm program", "program-properties");
- return scm_call_1 (scm_variable_ref (rtl_program_properties), program);
+ return scm_call_1 (scm_variable_ref (program_properties), program);
}
void
diff --git a/module/system/vm/program.scm b/module/system/vm/program.scm
index 857c1f88e..bbb9ef712 100644
--- a/module/system/vm/program.scm
+++ b/module/system/vm/program.scm
@@ -57,9 +57,7 @@
(find-program-docstring (program-code program)))
(define (program-minimum-arity program)
(find-program-minimum-arity (program-code program)))
-(define (rtl-program-properties program)
- (unless (program? program)
- (error "shouldn't get here"))
+(define (program-properties program)
(find-program-properties (program-code program)))
(define (make-binding name boxed? index start end)