From 6b9470bf483e14e10ae85fc6bcbc25b4e2e77ff7 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 19 Nov 2013 19:50:15 +0100 Subject: [PATCH] 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. --- libguile/programs.c | 10 +++++----- module/system/vm/program.scm | 4 +--- 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) -- 2.20.1