diff options
Diffstat (limited to 'srfi')
-rw-r--r-- | srfi/ChangeLog | 8 | ||||
-rw-r--r-- | srfi/srfi-10.scm | 5 | ||||
-rw-r--r-- | srfi/srfi-11.scm | 6 | ||||
-rw-r--r-- | srfi/srfi-14.scm | 7 | ||||
-rw-r--r-- | srfi/srfi-16.scm | 5 | ||||
-rw-r--r-- | srfi/srfi-2.scm | 5 | ||||
-rw-r--r-- | srfi/srfi-4.scm | 7 | ||||
-rw-r--r-- | srfi/srfi-8.scm | 5 | ||||
-rw-r--r-- | srfi/srfi-9.scm | 5 |
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)) |