diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-19 19:45:56 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-19 19:45:56 +0100 |
commit | 34cf09ccdf33fed42af9bda1f59252db9af9f7af (patch) | |
tree | b89495a10811e5582ece5bdba78b9c8491017d5a /module/system | |
parent | 2e12c1a2b7a5d066a4ef07b32c19cdf8d2f1738b (diff) | |
download | guile-34cf09ccdf33fed42af9bda1f59252db9af9f7af.tar.gz |
Rename internals of (system vm program) program-minimum-arity
* 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.
Diffstat (limited to 'module/system')
-rw-r--r-- | module/system/vm/debug.scm | 6 | ||||
-rw-r--r-- | module/system/vm/program.scm | 6 |
2 files changed, 5 insertions, 7 deletions
diff --git a/module/system/vm/debug.scm b/module/system/vm/debug.scm index 252c69ca1..d201e50ba 100644 --- a/module/system/vm/debug.scm +++ b/module/system/vm/debug.scm @@ -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")) diff --git a/module/system/vm/program.scm b/module/system/vm/program.scm index d8f201c0b..857c1f88e 100644 --- a/module/system/vm/program.scm +++ b/module/system/vm/program.scm @@ -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")) |