From 2e12c1a2b7a5d066a4ef07b32c19cdf8d2f1738b Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 19 Nov 2013 19:36:16 +0100 Subject: 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. --- module/system/vm/program.scm | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'module/system/vm/program.scm') 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) -- cgit v1.2.3