mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 08:10:17 +02:00
Code Activity

Rename internals of (system vm program) program-minimum-arity

Browse source 
* module/system/vm/debug.scm (find-program-minimum-arity): Rename from
  program-minimum-arity.

* module/system/vm/program.scm (program-minimum-arity): Rename from
  rtl-program-minimum-arity.

* libguile/programs.c (scm_i_program_arity): Adapt.
This commit is contained in:
Andy Wingo 2013-11-19 19:45:56 +01:00
parent 2e12c1a2b7
commit 34cf09ccdf
3 changed files with 10 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/system/vm/debug.scm
View file

@ -64,7 +64,7 @@
find-program-debug-info
arity-arguments-alist
find-program-arities
program-minimum-arity
find-program-minimum-arity
find-program-docstring
@ -405,8 +405,8 @@ section of the ELF image. Returns an ELF symbol, or @code{#f}."
(read-sub-arities context base (arity-header-offset first)))
(else (list first)))))))
(define* (program-minimum-arity addr #:optional
(context (find-debug-context addr)))
(define* (find-program-minimum-arity addr #:optional
(context (find-debug-context addr)))
(and=>
(and context
(elf-section-by-name (debug-context-elf context) ".guile.arities"))

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

@ -55,10 +55,8 @@
program-debug-info-name))
(define (program-documentation program)
(find-program-docstring (program-code program)))
(define (rtl-program-minimum-arity program)
(unless (program? program)
(error "shouldn't get here"))
(program-minimum-arity (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"))