diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-19 19:36:16 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-19 19:38:48 +0100 |
commit | 2e12c1a2b7a5d066a4ef07b32c19cdf8d2f1738b (patch) | |
tree | f5ff0da984815ca2375085197c50d8dab0ffe31a /module/system/vm/program.scm | |
parent | fd5621f8680e6a9a919324ed47a63cbdaa8a15ab (diff) | |
download | guile-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.scm | 8 |
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) |