Kawa/testsuite/sva36413.scm

(module-export foo)

(define (foo) #f)

(define (bar x)
  (let ((y '()))
    (set! y x)
    y))

(format #t "Ok.~%")
;; Diagnostic: sva36413.scm:5:10: warning - no use of bar
;; Output: Ok.