diff options
Diffstat (limited to 'module/ice-9/documentation.scm')
-rw-r--r-- | module/ice-9/documentation.scm | 8 |
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) |