diff options
author | Andy Wingo <wingo@pobox.com> | 2011-07-26 11:48:37 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-07-26 11:48:37 +0200 |
commit | 02620dd9a628ec40ec4324adca9b82cd0442d1d2 (patch) | |
tree | 213c14de14b6fa71b191b66174257138b23d827d | |
parent | ab4bc85398a14b62b58694bab83c63be286b2fd5 (diff) | |
download | guile-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.scm | 6 |
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) |