3 |
;;;; (ice-9 and-let-star) instead. |
;;;; (ice-9 and-let-star) instead. |
4 |
|
|
5 |
(define-module (ice-9 and-let*) |
(define-module (ice-9 and-let*) |
6 |
:use-module (ice-9 and-let-star) |
:use-module (ice-9 and-let-star)) |
|
:re-export-syntax (and-let*)) |
|
7 |
|
|
8 |
(display ";;; The module name (ice-9 and-let*) is deprecated.\n" |
(display ";;; The module name (ice-9 and-let*) is deprecated.\n" |
9 |
(current-error-port)) |
(current-error-port)) |
10 |
(display ";;; Use (ice-9 and-let-star) instead.\n\n" |
(display ";;; Use (ice-9 and-let-star) instead.\n\n" |
11 |
(current-error-port)) |
(current-error-port)) |
12 |
|
|
13 |
|
(export-syntax and-let*) |