~ chicken-core (chicken-5) /tests/test-chained-modules.scm

 1(module m1 ((s1 f1))
 2  (import scheme (chicken base))
 3  (define (f1) (print "f1") 'f1)
 4  (define-syntax s1
 5    (syntax-rules ()
 6      ((_) (f1)))))
 7
 8(module m2 (s2)
 9  (import scheme (rename m1 (s1 s1:s1)))
10  (define-syntax s2
11    (syntax-rules ()
12      ((_) (s1:s1)))))
13
14(module m3 (s3)
15  (import scheme m2)
16  (define-syntax s3
17    (syntax-rules ()
18      ((_) (s2)))))
19
20(import m3)
21(s3)
22