From 02620dd9a628ec40ec4324adca9b82cd0442d1d2 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Tue, 26 Jul 2011 11:48:37 +0200
Subject: [PATCH] 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.
---
 module/oop/goops.scm | 6 ++----
 1 file 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)