summaryrefslogtreecommitdiff
path: root/srfi
diff options
context:
space:
mode:
Diffstat (limited to 'srfi')
-rw-r--r--srfi/ChangeLog8
-rw-r--r--srfi/srfi-10.scm5
-rw-r--r--srfi/srfi-11.scm6
-rw-r--r--srfi/srfi-14.scm7
-rw-r--r--srfi/srfi-16.scm5
-rw-r--r--srfi/srfi-2.scm5
-rw-r--r--srfi/srfi-4.scm7
-rw-r--r--srfi/srfi-8.scm5
-rw-r--r--srfi/srfi-9.scm5
9 files changed, 26 insertions, 27 deletions
diff --git a/srfi/ChangeLog b/srfi/ChangeLog
index f3f76740e..a6a49435e 100644
--- a/srfi/ChangeLog
+++ b/srfi/ChangeLog
@@ -1,3 +1,11 @@
+2001-10-21 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
diff --git a/srfi/srfi-10.scm b/srfi/srfi-10.scm
index f24ec0d94..e3327548c 100644
--- a/srfi/srfi-10.scm
+++ b/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))
diff --git a/srfi/srfi-11.scm b/srfi/srfi-11.scm
index de0753636..e60ef43f9 100644
--- a/srfi/srfi-11.scm
+++ b/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)
diff --git a/srfi/srfi-14.scm b/srfi/srfi-14.scm
index 08aa7b71e..c47ddd514 100644
--- a/srfi/srfi-14.scm
+++ b/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))
diff --git a/srfi/srfi-16.scm b/srfi/srfi-16.scm
index 73fd22dc7..fe179e849 100644
--- a/srfi/srfi-16.scm
+++ b/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))
diff --git a/srfi/srfi-2.scm b/srfi/srfi-2.scm
index fa6d0c960..9febda017 100644
--- a/srfi/srfi-2.scm
+++ b/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))
diff --git a/srfi/srfi-4.scm b/srfi/srfi-4.scm
index ea7137cd1..134ac5875 100644
--- a/srfi/srfi-4.scm
+++ b/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'.
diff --git a/srfi/srfi-8.scm b/srfi/srfi-8.scm
index 52961ed3a..85b31830e 100644
--- a/srfi/srfi-8.scm
+++ b/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))
diff --git a/srfi/srfi-9.scm b/srfi/srfi-9.scm
index 7bf032721..b36b11f4e 100644
--- a/srfi/srfi-9.scm
+++ b/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))