diff options
Diffstat (limited to 'module/system/vm')
-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")) |