guile/guile-core/oop ChangeLog goops.scm

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Mikael Djurfeldt <address@hidden>       01/10/21 05:47:55

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

Log message:
        * lib.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.
        
        * srfi-2.scm, srfi-4.scm, srfi-8.scm, srfi-9.scm, srfi-10.scm,
        srfi-11.scm, srfi-14.scm, srfi-16.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.
        
        * 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.
        
        * slib.scm (array-indexes): New procedure.
        (*features*): Extend.  (Probably some of these options should be
        set elsewhere.)  (Thanks to Aubrey Jaffer.)
        
        * and-let-star-compat.scm, and-let-star.scm, calling.scm,
        channel.scm, common-list.scm, debug.scm, debugger.scm,
        expect.scm, hcons.scm, lineio.scm, ls.scm, mapping.scm,
        null.scm, optargs.scm, poe.scm, popen.scm, pretty-print.scm,
        q.scm, r5rs.scm, rdelim.scm, regex.scm, runq.scm, safe-r5rs.scm,
        safe.scm, session.scm, slib.scm, streams.scm, string-fun.scm,
        syncase.scm, threads.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&tr1=1.20&tr2=1.21&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/oop/goops.scm.diff?cvsroot=OldCVS&tr1=1.13&tr2=1.14&r1=text&r2=text

Patches:
Index: guile/guile-core/oop/ChangeLog
diff -u guile/guile-core/oop/ChangeLog:1.20 guile/guile-core/oop/ChangeLog:1.21
--- guile/guile-core/oop/ChangeLog:1.20 Sat Aug 25 12:01:44 2001
+++ guile/guile-core/oop/ChangeLog      Sun Oct 21 05:47:55 2001
@@ -1,3 +1,12 @@
+2001-10-21  Mikael Djurfeldt  <address@hidden>
+
+       * 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.
+
 2001-08-25  Marius Vollmer  <address@hidden>
 
        * Makefile.am, goops/Makefile.am: (AUTOMAKE_OPTIONS): Change
Index: guile/guile-core/oop/goops.scm
diff -u guile/guile-core/oop/goops.scm:1.13 guile/guile-core/oop/goops.scm:1.14
--- guile/guile-core/oop/goops.scm:1.13 Mon Jun  4 18:18:12 2001
+++ guile/guile-core/oop/goops.scm      Sun Oct 21 05:47:55 2001
@@ -51,6 +51,51 @@
 ;;;;
 
 (define-module (oop goops)
+  :export-syntax (define-class class
+                 define-generic define-accessor define-method
+                 method)
+  :export (goops-version is-a?
+           ensure-metaclass ensure-metaclass-with-supers
+          make-class
+          make-generic ensure-generic
+          make-accessor ensure-accessor
+          make-method add-method!
+          object-eqv? object-equal?
+          class-slot-ref class-slot-set! slot-unbound slot-missing 
+          slot-definition-name  slot-definition-options
+          slot-definition-allocation
+          slot-definition-getter slot-definition-setter
+          slot-definition-accessor
+          slot-definition-init-value slot-definition-init-form
+          slot-definition-init-thunk slot-definition-init-keyword 
+          slot-init-function class-slot-definition
+          method-source
+          compute-cpl compute-std-cpl compute-get-n-set compute-slots
+          compute-getter-method compute-setter-method
+          allocate-instance initialize make-instance make
+          no-next-method  no-applicable-method no-method
+          change-class update-instance-for-different-class
+          shallow-clone deep-clone
+          class-redefinition
+          apply-generic apply-method apply-methods
+          compute-applicable-methods %compute-applicable-methods
+          method-more-specific? sort-applicable-methods
+          class-subclasses class-methods
+          goops-error
+          min-fixnum max-fixnum
+          ;;; *fixme* Should go into goops.c
+          instance?  slot-ref-using-class
+          slot-set-using-class! slot-bound-using-class?
+          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
+          generic-function-name
+          generic-function-methods method-generic-function method-specializers
+          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)
   :no-backtrace)
 
 ;; First initialize the builtin part of GOOPS
@@ -60,53 +105,6 @@
 (use-modules (oop goops util)
             (oop goops dispatch)
             (oop goops compile))
-
-(export                          ; Define the exported symbols of this file
-    goops-version is-a?
-    ensure-metaclass ensure-metaclass-with-supers
-    define-class   class make-class
-    define-generic make-generic ensure-generic
-    define-accessor make-accessor ensure-accessor
-    define-method make-method method add-method!
-    object-eqv? object-equal?
-    class-slot-ref class-slot-set! slot-unbound slot-missing 
-    slot-definition-name  slot-definition-options slot-definition-allocation
-    slot-definition-getter slot-definition-setter slot-definition-accessor
-    slot-definition-init-value slot-definition-init-form
-    slot-definition-init-thunk slot-definition-init-keyword 
-    slot-init-function class-slot-definition
-    method-source
-    compute-cpl compute-std-cpl compute-get-n-set compute-slots
-    compute-getter-method compute-setter-method
-    allocate-instance initialize make-instance make
-    no-next-method  no-applicable-method no-method
-    change-class update-instance-for-different-class
-    shallow-clone deep-clone
-    class-redefinition
-    apply-generic apply-method apply-methods
-    compute-applicable-methods %compute-applicable-methods
-    method-more-specific? sort-applicable-methods
-    class-subclasses class-methods
-    goops-error
-    min-fixnum max-fixnum
-)
-
-;;; *fixme* Should go into goops.c
-
-(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-name class-direct-supers class-direct-subclasses
-    class-direct-methods class-direct-slots class-precedence-list
-    class-slots class-environment
-    generic-function-name
-    generic-function-methods method-generic-function method-specializers
-    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)))