diff options
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) |