From 8befde009ae8f07b9205ab5685f181687ed09e62 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 30 Sep 2008 20:18:57 +0200 Subject: [PATCH] object-documentation knows about programs * ice-9/documentation.scm (object-documentation): Add hooks for getting documentation for compiled procedures, too. (Goops would be helpful here.) --- ice-9/documentation.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/ice-9/documentation.scm b/ice-9/documentation.scm index 6e74799e6..c5f447e78 100644 --- a/ice-9/documentation.scm +++ b/ice-9/documentation.scm @@ -80,6 +80,7 @@ (define-module (ice-9 documentation) :use-module (ice-9 rdelim) + :use-module ((system vm program) :select (program? program-documentation)) :export (file-commentary documentation-files search-documentation-files object-documentation) @@ -201,6 +202,8 @@ OBJECT can be a procedure, macro or any object that has its (and transformer (proc-doc transformer)))) (object-property object 'documentation) + (and (program? object) + (program-documentation object)) (and (procedure? object) (not (closure? object)) (procedure-name object)