diff options
-rw-r--r-- | ice-9/documentation.scm | 3 |
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) |