guile/guile-core/oop ChangeLog goops.scm

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Branch:         branch_release-1-6
Changes by:     Mikael Djurfeldt <address@hidden>       01/10/18 15:41:54

Modified files:
        guile-core/oop : ChangeLog goops.scm 

Log message:
        * goops.scm, goops/active-slot.scm, goops/compile.scm,
        goops/composite-slot.scm, goops/describe.scm, goops/dispatch.scm,
        goops/old-define-method.scm, goops/save.scm, goops/util.scm: Move
        module the system directives `export', `export-syntax',
        `re-export' and `re-export-syntax' into the `define-module' form.
        This is the recommended way of exporting bindings.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/oop/ChangeLog.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.16.2.2&tr2=1.16.2.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/oop/goops.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.13&tr2=1.13.2.1&r1=text&r2=text

Patches:
Index: guile/guile-core/oop/ChangeLog
diff -u guile/guile-core/oop/ChangeLog:1.19 guile/guile-core/oop/ChangeLog:1.20
--- guile/guile-core/oop/ChangeLog:1.19 Sun Jul 29 16:48:52 2001
+++ guile/guile-core/oop/ChangeLog      Sat Aug 25 12:01:44 2001
@@ -1,3 +1,8 @@
+2001-08-25  Marius Vollmer  <address@hidden>
+
+       * Makefile.am, goops/Makefile.am: (AUTOMAKE_OPTIONS): Change
+       "foreign" to "gnu".
+
 2001-07-29  Marius Vollmer  <address@hidden>
 
        * goops/dispatch.scm (hashset-index): Renumbered, since the vcell
Index: guile/guile-core/oop/goops.scm
diff -u guile/guile-core/oop/goops.scm:1.12 guile/guile-core/oop/goops.scm:1.13
--- guile/guile-core/oop/goops.scm:1.12 Sun Jun  3 19:32:27 2001
+++ guile/guile-core/oop/goops.scm      Mon Jun  4 18:18:12 2001
@@ -96,7 +96,7 @@
 (export
     instance?  slot-ref-using-class
     slot-set-using-class! slot-bound-using-class?
-    slot-exists-using-class? slot-ref slot-set! slot-bound? class-of
+    slot-exists-using-class? slot-ref slot-set! slot-bound?
     class-name class-direct-supers class-direct-subclasses
     class-direct-methods class-direct-slots class-precedence-list
     class-slots class-environment
@@ -105,6 +105,8 @@
     primitive-generic-generic enable-primitive-generic!
     method-procedure accessor-method-slot-definition
     slot-exists? make find-method get-keyword)
+
+(re-export class-of)  ;; from (guile)
 
 
 (define min-fixnum (- (expt 2 29)))