summaryrefslogtreecommitdiff
path: root/module/system/vm/program.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-19 19:36:16 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-19 19:38:48 +0100
commit2e12c1a2b7a5d066a4ef07b32c19cdf8d2f1738b (patch)
treef5ff0da984815ca2375085197c50d8dab0ffe31a /module/system/vm/program.scm
parentfd5621f8680e6a9a919324ed47a63cbdaa8a15ab (diff)
downloadguile-2e12c1a2b7a5d066a4ef07b32c19cdf8d2f1738b.tar.gz
Rename (system vm program) internal functions to remove rtl-
* module/system/vm/program.scm (program-name) (program-documentation): Rename (removing rtl-). * libguile/programs.c (scm_i_program_name): (scm_i_program_documentation): Adapt callers.
Diffstat (limited to 'module/system/vm/program.scm')
-rw-r--r--module/system/vm/program.scm8
1 files changed, 2 insertions, 6 deletions
diff --git a/module/system/vm/program.scm b/module/system/vm/program.scm
index da9b7cd7b..d8f201c0b 100644
--- a/module/system/vm/program.scm
+++ b/module/system/vm/program.scm
@@ -50,14 +50,10 @@
"scm_init_programs")
;; These procedures are called by programs.c.
-(define (rtl-program-name program)
- (unless (program? program)
- (error "shouldn't get here"))
+(define (program-name program)
(and=> (find-program-debug-info (program-code program))
program-debug-info-name))
-(define (rtl-program-documentation program)
- (unless (program? program)
- (error "shouldn't get here"))
+(define (program-documentation program)
(find-program-docstring (program-code program)))
(define (rtl-program-minimum-arity program)
(unless (program? program)