summaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
Diffstat (limited to 'module')
-rw-r--r--module/system/vm/debug.scm6
-rw-r--r--module/system/vm/program.scm6
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"))