~ chicken-core (master) /tests/ffi-tests-2.scm

 1;; -d3 caused shadowing of variable assigned to callback wrapper, which in 
 2;; turn resulted in an invalid optimization of the callback, assuming the
 3;; Scheme-level procedure was not externally visible.
 4
 5(module testcase () ;; NOTE: It does *not* fail outside a module!
 6  (import scheme (chicken base) (chicken foreign))
 7
 8  (define-external (some_callback ((c-pointer void) blabla)) scheme-object
 9    #t)
10
11  (define (test-callback)
12    ((foreign-safe-lambda* void ()
13       "C_return(some_callback(NULL));")))
14
15  (test-callback))