summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ice-9/documentation.scm3
1 files changed, 3 insertions, 0 deletions
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)