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

 1(module boo *
 2  (import scheme)
 3  (define var 42))
 4
 5(module foo *
 6  (import scheme (chicken base) boo)
 7  (define-syntax bar
 8    (syntax-rules ()))
 9  (set! bar 42) ;; set!-ing a macro
10  (set! var 42) ;; set!-ing an imported identifier
11  (let ((var #f)) (set! var 42)) ;; set!-ing a local variable
12  (letrec-values ((bar (values)))) ;; shadow a syntax item
13  (let-syntax ((m (syntax-rules ()))) (set! m 42)))