* 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.

srfi/ChangeLog

@@ -1,3 +1,11 @@
+2001-10-18  Mikael Djurfeldt  <mdj@linnaeus>
+
+	* 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  <mdj@linnaeus>
 
 	* srfi-19.scm (priv:split-real): Inserted missing call to

srfi/srfi-10.scm

@@ -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))
 

srfi/srfi-11.scm

@@ -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)

srfi/srfi-14.scm

@@ -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))
 

srfi/srfi-16.scm

@@ -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))
 

srfi/srfi-2.scm

@@ -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))

srfi/srfi-4.scm

@@ -49,9 +49,8 @@
 
 ;;; Author: Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
 
-(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'.

srfi/srfi-8.scm

@@ -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))

srfi/srfi-9.scm

@@ -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))