Commit | Line | Data |
---|---|---|
ad4bd7c2 | 1 | #!/bin/sh |
7ad0737d | 2 | exec guile -q -L "$srcdir" -s "$0" "$@" |
ad4bd7c2 AW |
3 | !# |
4 | ||
5 | (define-module (base) | |
6 | #:export (push! order)) | |
7 | ||
8 | (define order '()) | |
9 | (define (push!) | |
10 | (set! order `(,@order ,(module-name (current-module))))) | |
11 | ||
12 | (define-module (test-1) | |
13 | #:use-module (base) | |
14 | #:use-module (test-import-order-a) | |
15 | #:use-module (test-import-order-b)) | |
16 | ||
17 | (use-modules (test-import-order-c) (test-import-order-d)) | |
18 | ||
19 | (if (not (equal? order | |
20 | '((test-import-order-a) | |
21 | (test-import-order-b) | |
22 | (test-import-order-c) | |
23 | (test-import-order-d)))) | |
24 | (begin | |
25 | (format (current-error-port) "Unexpected import order: ~a" order) | |
26 | (exit 1)) | |
27 | (exit 0)) | |
28 | ||
29 | ;; Local Variables: | |
30 | ;; mode: scheme | |
31 | ;; End: |