mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

export <macro> from goops, to appease texinfo reflection

Browse source 
* module/oop/goops.scm (<macro>): Actually define this class.  Also,
  group the export with the other SMOB types.
This commit is contained in:
Andy Wingo 2011-07-26 11:48:37 +02:00
parent ab4bc85398
commit 02620dd9a6
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/oop/goops.scm
View file

@ -44,9 +44,6 @@
;; Methods are implementations of generic functions. ;; Methods are implementations of generic functions.
<method> <accessor-method> <method> <accessor-method>
;; Macros.
<macro>
;; Applicable objects, either procedures or applicable structs. ;; Applicable objects, either procedures or applicable structs.
<procedure-class> <applicable> <procedure-class> <applicable>
<procedure> <primitive-generic> <procedure> <primitive-generic>
@ -76,7 +73,7 @@
<arbiter> <promise> <thread> <mutex> <condition-variable> <arbiter> <promise> <thread> <mutex> <condition-variable>
<regexp> <hook> <bitvector> <random-state> <async> <regexp> <hook> <bitvector> <random-state> <async>
<directory> <keyword> <array> <character-set> <directory> <keyword> <array> <character-set>
<dynamic-object> <guardian> <dynamic-object> <guardian> <macro>
;; Modules. ;; Modules.
<module> <module>
@ -1751,6 +1748,7 @@
(define <character-set> (find-subclass <top> '<character-set>)) (define <character-set> (find-subclass <top> '<character-set>))
(define <dynamic-object> (find-subclass <top> '<dynamic-object>)) (define <dynamic-object> (find-subclass <top> '<dynamic-object>))
(define <guardian> (find-subclass <applicable> '<guardian>)) (define <guardian> (find-subclass <applicable> '<guardian>))
(define <macro> (find-subclass <top> '<macro>))
(define (define-class-subtree class) (define (define-class-subtree class)
(define! (class-name class) class) (define! (class-name class) class)