mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 08:40:19 +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

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

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