summaryrefslogtreecommitdiff
path: root/module/system/vm/debug.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-19 19:45:56 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-19 19:45:56 +0100
commit34cf09ccdf33fed42af9bda1f59252db9af9f7af (patch)
treeb89495a10811e5582ece5bdba78b9c8491017d5a /module/system/vm/debug.scm
parent2e12c1a2b7a5d066a4ef07b32c19cdf8d2f1738b (diff)
downloadguile-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/vm/debug.scm')
-rw-r--r--module/system/vm/debug.scm6
1 files changed, 3 insertions, 3 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"))