summaryrefslogtreecommitdiff
path: root/module/ice-9/documentation.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-05-29 16:01:43 +0200
committerAndy Wingo <wingo@pobox.com>2009-05-29 16:01:43 +0200
commit938d46a35d39ec5d7b5fa858a8783136ce24d10d (patch)
tree17153f062515c4ae74815f65c4aa1f30a92e1ce4 /module/ice-9/documentation.scm
parent1ee2c72eafaae5f91f4c899bc4b4853af5c16f28 (diff)
parente3c5df539640a36eb1493f581087d54a4714f337 (diff)
downloadguile-938d46a35d39ec5d7b5fa858a8783136ce24d10d.tar.gz
Merge branch 'syncase-in-boot-9'
Conflicts: module/Makefile.am
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)