[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, master, updated. v2.0.2-106-g02620dd

From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. v2.0.2-106-g02620dd
Date: Tue, 26 Jul 2011 09:51:19 +0000

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

The branch, master has been updated
       via  02620dd9a628ec40ec4324adca9b82cd0442d1d2 (commit)
      from  ab4bc85398a14b62b58694bab83c63be286b2fd5 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 02620dd9a628ec40ec4324adca9b82cd0442d1d2
Author: Andy Wingo <address@hidden>
Date:   Tue Jul 26 11:48:37 2011 +0200

    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.


Summary of changes:
 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 a27aab5..a49af06 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.
@@ -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)

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]