File: test-import-order

package info (click to toggle)
guile-2.0 2.0.11%2B1-9
  • links: PTS
  • area: main
  • in suites: jessie-kfreebsd
  • size: 27,612 kB
  • sloc: ansic: 132,286; lisp: 67,206; sh: 4,593; makefile: 1,977; perl: 243; awk: 37
file content (31 lines) | stat: -rwxr-xr-x 726 bytes parent folder | download | duplicates (13) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
#!/bin/sh
exec guile -q -L "$srcdir" -s "$0" "$@"
!#

(define-module (base)
  #:export (push! order))

(define order '())
(define (push!)
  (set! order `(,@order ,(module-name (current-module)))))

(define-module (test-1)
  #:use-module (base)
  #:use-module (test-import-order-a)
  #:use-module (test-import-order-b))

(use-modules (test-import-order-c) (test-import-order-d))

(if (not (equal? order
                 '((test-import-order-a)
                   (test-import-order-b)
                   (test-import-order-c)
                   (test-import-order-d))))
    (begin
      (format (current-error-port) "Unexpected import order: ~a" order)
      (exit 1))
    (exit 0))

;; Local Variables:
;; mode: scheme
;; End: