summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-07-26 11:48:37 +0200
committerAndy Wingo <wingo@pobox.com>2011-07-26 11:48:37 +0200
commit02620dd9a628ec40ec4324adca9b82cd0442d1d2 (patch)
tree213c14de14b6fa71b191b66174257138b23d827d
parentab4bc85398a14b62b58694bab83c63be286b2fd5 (diff)
downloadguile-02620dd9a628ec40ec4324adca9b82cd0442d1d2.tar.gz
export <macro> from goops, to appease texinfo reflection
* module/oop/goops.scm (<macro>): Actually define this class. Also, group the export with the other SMOB types.
-rw-r--r--module/oop/goops.scm6
1 files changed, 2 insertions, 4 deletions
diff --git a/module/oop/goops.scm b/module/oop/goops.scm
index a27aab5fb..a49af0604 100644
--- a/module/oop/goops.scm
+++ b/module/oop/goops.scm
@@ -44,9 +44,6 @@
;; Methods are implementations of generic functions.
<method> <accessor-method>
- ;; Macros.
- <macro>
-
;; Applicable objects, either procedures or applicable structs.
<procedure-class> <applicable>
<procedure> <primitive-generic>
@@ -76,7 +73,7 @@
<arbiter> <promise> <thread> <mutex> <condition-variable>
<regexp> <hook> <bitvector> <random-state> <async>
<directory> <keyword> <array> <character-set>
- <dynamic-object> <guardian>
+ <dynamic-object> <guardian> <macro>
;; Modules.
<module>
@@ -1751,6 +1748,7 @@
(define <character-set> (find-subclass <top> '<character-set>))
(define <dynamic-object> (find-subclass <top> '<dynamic-object>))
(define <guardian> (find-subclass <applicable> '<guardian>))
+(define <macro> (find-subclass <top> '<macro>))
(define (define-class-subtree class)
(define! (class-name class) class)