2 exec guile
-q -L "$srcdir" -s "$0" "$@"
6 #:export (push! order))
10 (set! order `(,@order ,(module-name (current-module)))))
12 (define-module (test-1)
14 #:use-module (test-import-order-a)
15 #:use-module (test-import-order-b))
17 (use-modules (test-import-order-c) (test-import-order-d))
19 (if (not (equal? order
20 '((test-import-order-a
)
23 (test-import-order-d
))))
25 (format
(current-error-port
) "Unexpected import order: ~a" order
)