guile/guile-core/srfi ChangeLog srfi-10.scm srf...

[Mikael Djurfeldt]

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

Modified files:
        guile-core/srfi: ChangeLog srfi-10.scm srfi-11.scm srfi-14.scm 
                         srfi-16.scm srfi-2.scm srfi-4.scm srfi-8.scm 
                         srfi-9.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/srfi/ChangeLog.diff?cvsroot=OldCVS&tr1=1.70&tr2=1.71&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-10.scm.diff?cvsroot=OldCVS&tr1=1.4&tr2=1.5&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-11.scm.diff?cvsroot=OldCVS&tr1=1.5&tr2=1.6&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-14.scm.diff?cvsroot=OldCVS&tr1=1.6&tr2=1.7&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-16.scm.diff?cvsroot=OldCVS&tr1=1.3&tr2=1.4&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-2.scm.diff?cvsroot=OldCVS&tr1=1.4&tr2=1.5&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-4.scm.diff?cvsroot=OldCVS&tr1=1.1&tr2=1.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-8.scm.diff?cvsroot=OldCVS&tr1=1.5&tr2=1.6&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-9.scm.diff?cvsroot=OldCVS&tr1=1.4&tr2=1.5&r1=text&r2=text

Patches:
Index: guile/guile-core/srfi/ChangeLog
diff -u guile/guile-core/srfi/ChangeLog:1.70 
guile/guile-core/srfi/ChangeLog:1.71
--- guile/guile-core/srfi/ChangeLog:1.70        Sat Sep 22 17:17:31 2001
+++ guile/guile-core/srfi/ChangeLog     Sun Oct 21 05:48:51 2001
@@ -1,3 +1,11 @@
+2001-10-21  Mikael Djurfeldt  <address@hidden>
+
+       * 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.
+
 2001-09-22  Mikael Djurfeldt  <address@hidden>
 
        * srfi-19.scm (priv:split-real): Inserted missing call to
Index: guile/guile-core/srfi/srfi-10.scm
diff -u guile/guile-core/srfi/srfi-10.scm:1.4 
guile/guile-core/srfi/srfi-10.scm:1.5
--- guile/guile-core/srfi/srfi-10.scm:1.4       Sun Jun  3 19:33:31 2001
+++ guile/guile-core/srfi/srfi-10.scm   Sun Oct 21 05:48:51 2001
@@ -69,9 +69,8 @@
 ;;; Code:
 
 (define-module (srfi srfi-10)
-  #:use-module (ice-9 rdelim))
-
-(export define-reader-ctor)
+  :use-module (ice-9 rdelim)
+  :export (define-reader-ctor))
 
 (cond-expand-provide (current-module) '(srfi-10))
 
Index: guile/guile-core/srfi/srfi-11.scm
diff -u guile/guile-core/srfi/srfi-11.scm:1.5 
guile/guile-core/srfi/srfi-11.scm:1.6
--- guile/guile-core/srfi/srfi-11.scm:1.5       Thu Jul 19 16:28:33 2001
+++ guile/guile-core/srfi/srfi-11.scm   Sun Oct 21 05:48:51 2001
@@ -42,7 +42,8 @@
 ;;; If you do not wish that, delete this exception notice.
 
 (define-module (srfi srfi-11)
-  :use-module (ice-9 syncase))
+  :use-module (ice-9 syncase)
+  :export-syntax (let-values let*-values))
 
 (cond-expand-provide (current-module) '(srfi-11))
 
@@ -256,6 +257,3 @@
 ;   (if (null? vars)
 ;       `(begin ,@body)
 ;       (let-values-helper vars body)))
-
-(export-syntax let-values
-               let*-values)
Index: guile/guile-core/srfi/srfi-14.scm
diff -u guile/guile-core/srfi/srfi-14.scm:1.6 
guile/guile-core/srfi/srfi-14.scm:1.7
--- guile/guile-core/srfi/srfi-14.scm:1.6       Mon Jul 16 18:30:25 2001
+++ guile/guile-core/srfi/srfi-14.scm   Sun Oct 21 05:48:51 2001
@@ -41,9 +41,8 @@
 ;;;; whether to permit this exception to apply to your modifications.
 ;;;; If you do not wish that, delete this exception notice.
 
-(define-module (srfi srfi-14))
-
-(export 
+(define-module (srfi srfi-14)
+  :export (
 ;;; General procedures
  char-set?
  char-set=
@@ -112,7 +111,7 @@
  char-set:ascii
  char-set:empty
  char-set:full
- )
+ ))
 
 (cond-expand-provide (current-module) '(srfi-14))
 
Index: guile/guile-core/srfi/srfi-16.scm
diff -u guile/guile-core/srfi/srfi-16.scm:1.3 
guile/guile-core/srfi/srfi-16.scm:1.4
--- guile/guile-core/srfi/srfi-16.scm:1.3       Sun Jun  3 19:33:31 2001
+++ guile/guile-core/srfi/srfi-16.scm   Sun Oct 21 05:48:51 2001
@@ -69,9 +69,8 @@
 ;;; Author: Martin Grabmueller
 
 ;;; Code:
-(define-module (srfi srfi-16))
-
-(export-syntax case-lambda)
+(define-module (srfi srfi-16)
+  :export-syntax (case-lambda))
 
 (cond-expand-provide (current-module) '(srfi-16))
 
Index: guile/guile-core/srfi/srfi-2.scm
diff -u guile/guile-core/srfi/srfi-2.scm:1.4 
guile/guile-core/srfi/srfi-2.scm:1.5
--- guile/guile-core/srfi/srfi-2.scm:1.4        Thu Jul 12 19:28:03 2001
+++ guile/guile-core/srfi/srfi-2.scm    Sun Oct 21 05:48:51 2001
@@ -42,8 +42,7 @@
 ;;;; If you do not wish that, delete this exception notice.
 
 (define-module (srfi srfi-2)
-  :use-module (ice-9 and-let-star))
-
-(re-export-syntax and-let*)
+  :use-module (ice-9 and-let-star)
+  :re-export-syntax (and-let*))
 
 (cond-expand-provide (current-module) '(srfi-2))
Index: guile/guile-core/srfi/srfi-4.scm
diff -u guile/guile-core/srfi/srfi-4.scm:1.1 
guile/guile-core/srfi/srfi-4.scm:1.2
--- guile/guile-core/srfi/srfi-4.scm:1.1        Wed Jun 27 09:18:40 2001
+++ guile/guile-core/srfi/srfi-4.scm    Sun Oct 21 05:48:51 2001
@@ -49,9 +49,8 @@
 
 ;;; Author: Martin Grabmueller <address@hidden>
 
-(define-module (srfi srfi-4))
-
-(export 
+(define-module (srfi srfi-4)
+  :export (
 ;;; Unsigned 8-bit vectors.
  u8vector? make-u8vector u8vector u8vector-length u8vector-ref
  u8vector-set! u8vector->list list->u8vector
@@ -91,7 +90,7 @@
 ;;; 64-bit floating point vectors.
  f64vector? make-f64vector f64vector f64vector-length f64vector-ref
  f64vector-set! f64vector->list list->f64vector
- )
+ ))
 
 
 ;; Make 'srfi-4 available as a feature identifiere to `cond-expand'.
Index: guile/guile-core/srfi/srfi-8.scm
diff -u guile/guile-core/srfi/srfi-8.scm:1.5 
guile/guile-core/srfi/srfi-8.scm:1.6
--- guile/guile-core/srfi/srfi-8.scm:1.5        Thu Jul 19 16:28:33 2001
+++ guile/guile-core/srfi/srfi-8.scm    Sun Oct 21 05:48:51 2001
@@ -42,8 +42,7 @@
 ;;; If you do not wish that, delete this exception notice.
 
 (define-module (srfi srfi-8)
-  :use-module (ice-9 receive))
-
-(re-export-syntax receive)
+  :use-module (ice-9 receive)
+  :re-export-syntax (receive))
 
 (cond-expand-provide (current-module) '(srfi-8))
Index: guile/guile-core/srfi/srfi-9.scm
diff -u guile/guile-core/srfi/srfi-9.scm:1.4 
guile/guile-core/srfi/srfi-9.scm:1.5
--- guile/guile-core/srfi/srfi-9.scm:1.4        Sun Jun  3 19:33:31 2001
+++ guile/guile-core/srfi/srfi-9.scm    Sun Oct 21 05:48:51 2001
@@ -83,9 +83,8 @@
 
 ;;; Code:
 
-(define-module (srfi srfi-9))
-
-(export-syntax define-record-type)
+(define-module (srfi srfi-9)
+  :export-syntax (define-record-type))
 
 (cond-expand-provide (current-module) '(srfi-9))