~ chicken-core (chicken-5) /tests/inline-me.scm

 1(module
 2 inline-me
 3 (foreign-foo external-foo)
 4 (import scheme (chicken base))
 5 (import (only (chicken foreign) foreign-lambda*))
 6
 7 (define foreign-foo (foreign-lambda* int ((int x)) "C_return ( x + 1 );"))
 8
 9 (define (external-foo x y) (display x y))
10
11)