~ chicken-core (chicken-5) /tests/import-library-test2.scm

1(require-library import-library-test1)
2
3(module bar (xcase)
4  (import scheme (chicken base) foo)
5  (assert (equal? '(123) (foo)))
6  (assert (= 2 (xcase 1 ((1) 2)))))
7
8(import bar)
9(assert (= 2 (xcase 1 ((1) 2))))