mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

Rename internal rtl-program-properties -> program-properties

Browse source 
* module/system/vm/program.scm (program-properties): Rename from
  rtl-program-properties.

* libguile/programs.c (scm_i_program_properties): Adapt.
This commit is contained in:
Andy Wingo 2013-11-19 19:50:15 +01:00
parent 2b4d21d53e
commit 6b9470bf48
2 changed files with 6 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/programs.c
View file

@ -74,7 +74,7 @@ scm_i_program_documentation (SCM program)
SCM SCM
scm_i_program_properties (SCM program) 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)) if (SCM_PRIMITIVE_P (program))
{ {
@ -84,11 +84,11 @@ scm_i_program_properties (SCM program)
return scm_acons (scm_sym_name, name, SCM_EOL); return scm_acons (scm_sym_name, name, SCM_EOL);
} }
if (scm_is_false (rtl_program_properties) && scm_module_system_booted_p) if (scm_is_false (program_properties) && scm_module_system_booted_p)
rtl_program_properties = program_properties =
scm_c_private_variable ("system vm program", "rtl-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 void

4
module/system/vm/program.scm
View file

@ -57,9 +57,7 @@
(find-program-docstring (program-code program))) (find-program-docstring (program-code program)))
(define (program-minimum-arity program) (define (program-minimum-arity program)
(find-program-minimum-arity (program-code program))) (find-program-minimum-arity (program-code program)))
(define (rtl-program-properties program) (define (program-properties program)
(unless (program? program)
(error "shouldn't get here"))
(find-program-properties (program-code program))) (find-program-properties (program-code program)))
(define (make-binding name boxed? index start end) (define (make-binding name boxed? index start end)