diff options
-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) |