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

Rename (system vm program) internal functions to remove rtl-

Browse source 
* module/system/vm/program.scm (program-name)
  (program-documentation): Rename (removing rtl-).
* libguile/programs.c (scm_i_program_name):
  (scm_i_program_documentation): Adapt callers.
This commit is contained in:
Andy Wingo 2013-11-19 19:36:16 +01:00
parent fd5621f868
commit 2e12c1a2b7
2 changed files with 12 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

21
libguile/programs.c
View file

@ -44,32 +44,31 @@ SCM_DEFINE (scm_program_code, "program-code", 1, 0, 0,
SCM SCM
scm_i_program_name (SCM program) scm_i_program_name (SCM program)
{ {
static SCM rtl_program_name = SCM_BOOL_F; static SCM program_name = SCM_BOOL_F;
if (SCM_PRIMITIVE_P (program)) if (SCM_PRIMITIVE_P (program))
return SCM_SUBR_NAME (program); return SCM_SUBR_NAME (program);
if (scm_is_false (rtl_program_name) && scm_module_system_booted_p) if (scm_is_false (program_name) && scm_module_system_booted_p)
rtl_program_name = program_name =
scm_c_private_variable ("system vm program", "rtl-program-name"); scm_c_private_variable ("system vm program", "program-name");
return scm_call_1 (scm_variable_ref (rtl_program_name), program); return scm_call_1 (scm_variable_ref (program_name), program);
} }
SCM SCM
scm_i_program_documentation (SCM program) scm_i_program_documentation (SCM program)
{ {
static SCM rtl_program_documentation = SCM_BOOL_F; static SCM program_documentation = SCM_BOOL_F;
if (SCM_PRIMITIVE_P (program)) if (SCM_PRIMITIVE_P (program))
return SCM_BOOL_F; return SCM_BOOL_F;
if (scm_is_false (rtl_program_documentation) && scm_module_system_booted_p) if (scm_is_false (program_documentation) && scm_module_system_booted_p)
rtl_program_documentation = program_documentation =
scm_c_private_variable ("system vm program", scm_c_private_variable ("system vm program", "program-documentation");
"rtl-program-documentation");
return scm_call_1 (scm_variable_ref (rtl_program_documentation), program); return scm_call_1 (scm_variable_ref (program_documentation), program);
} }
SCM SCM

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

@ -50,14 +50,10 @@
"scm_init_programs") "scm_init_programs")
;; These procedures are called by programs.c. ;; These procedures are called by programs.c.
(define (rtl-program-name program) (define (program-name program)
(unless (program? program)
(error "shouldn't get here"))
(and=> (find-program-debug-info (program-code program)) (and=> (find-program-debug-info (program-code program))
program-debug-info-name)) program-debug-info-name))
(define (rtl-program-documentation program) (define (program-documentation program)
(unless (program? program)
(error "shouldn't get here"))
(find-program-docstring (program-code program))) (find-program-docstring (program-code program)))
(define (rtl-program-minimum-arity program) (define (rtl-program-minimum-arity program)
(unless (program? program) (unless (program? program)