summaryrefslogtreecommitdiff
path: root/module/ice-9/documentation.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/ice-9/documentation.scm')
-rw-r--r--module/ice-9/documentation.scm8
1 files changed, 2 insertions, 6 deletions
diff --git a/module/ice-9/documentation.scm b/module/ice-9/documentation.scm
index c5f447e78..92d31cabc 100644
--- a/module/ice-9/documentation.scm
+++ b/module/ice-9/documentation.scm
@@ -195,15 +195,11 @@ OBJECT can be a procedure, macro or any object that has its
`documentation' property set."
(or (and (procedure? object)
(proc-doc object))
- (and (defmacro? object)
- (proc-doc (defmacro-transformer object)))
- (and (macro? object)
- (let ((transformer (macro-transformer object)))
- (and transformer
- (proc-doc transformer))))
(object-property object 'documentation)
(and (program? object)
(program-documentation object))
+ (and (macro? object)
+ (object-documentation (macro-transformer object)))
(and (procedure? object)
(not (closure? object))
(procedure-name object)